Проверить является ли введенное слово перевертышем?
Написать программу в Паскале!

var i,n,k:integer; s:string;     begin readln(s);     n:=length(s);         for i:=1 to n div 2 do               if s[i]=s[n-i+1]then                  k:=k+1;      if k=n div 2 then         writeln('y')      else          writeln('n'); end.