Palindrom

>Verifica daca un cuvand dat de la tastatura este sau nu palindrom.

program cuv_palindrom;
var s:string;

function palin(poz:integer):boolean;
begin
palin:=true;
if poz<length(s)/2
then
  if s[poz]<>s[length(s)-poz+1] then palin:=false else palin:=palin(poz+1);
end;

begin
write('Dati cuvantul: ');
readln(s);
if palin(1) then writeln('Cuvantul ',s,' este palindrom') else writeln('Cuvantul ',s,' nu este palindrom');
readln;
end.

{PascalZone.uv.ro}