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

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.

Блок-схема - в прилагаемом файле.
Программа:
var s1,s2:string; i:integer;
begin
write('Введите слово: ');
readln(s1);
s2:='';
for i:=1 to length(s1) do s2:=s1[i]+s2;
writeln('Слово в обратном порядке:');
writeln(s2);
end.

Пример:
Введите слово: program
Слово в обратном порядке:
margorp