pascal abc.нарисуйте блок-схему пожалуйста

[sfuwf]

Program lab 7;
uses crt;
var s,s1:string;
n,i:integer;
begin
writeln('Введите слово');
readln(s);
length(s);
for i:=length(s) downto 1 do s1:=s1+s[i];
if s=s1 then writeln('Это слово перевертыш') else writeln('Это слово не перевертыш');

end.

[SaLoKiN]

нажми на надпись,получишь результат

[Poma][a]

for i:=length(s) downto 1 do s1:=s1+s[i];

Ужасть.. Просто проверям до середины, сравнивая элементы с концов..