Ввести слово и вывести его в обратном порядке.+ составить блок-схему(не обязательно, но желательно).

program zadacha;
var slovo1,slovo2:string;
i:integer;
begin
write('Введите слово: ');
readln(slovo1);
slovo2:=' ';
for i:=1 to length(slovo1) do
 slovo2:=slovo1[i]+slovo2;
write('Слово в обратном порядке: ',slovo2);
end.