Перевірка рядка на "паліндромність".

Задача 3. Перевірка рядка на   "паліндромність".

var s1,s2:string;

    i:integer;

begin

    readln(s1); s2:='';

    for i:=length(s1) downto 1 do begin

       s2:=s2+s1[i];

    end;

    if s1=s2 then writeln(s1, ' -  паліндромне слово')

             else  writeln(s1, ' -  непалідромне слово);

end.