Дана строка, выяснить является ли строка палиндромом - Turbo Pascal

uses crt;
type pstack=^stack;         {стек}
     stack=record
       nomber:char;
       next: pstack;
     end;
var ptop: pstack;   {вершина стека}
    s:string;
    i,n,k: integer;
    f:boolean;
procedure push (chto: char); {добавление в конце стека}
var p: pstack;
begin
     new(p);
     p^.nomber:=chto;
     p^.next:=ptop;
     ptop:=p;
end;
function pop : char; {удаление из вершины стека}
var p: pstack;
begin
     p:=ptop;
     pop:=p^.nomber;
     ptop:=p^.next;
     dispose(p);
end;
 
begin
clrscr;
ptop:=nil;
writeln('Введите строку');
readln(s);
n:=length(s);
k:=length(s) div 2;
i:=1;
while i<=k do  {ввод первой половины символов в стек}
 begin
  push(s[i]);
  i:=i+1;
 end;
f:=true; {пусть палиндром}
for i:=1 to k do {смотрим вторую половину строки}
if pop<>s[n-k+i] then f:=false; {если удаленное из стека не совпадает
                                    с прочитанным символом, не палиндром}
if f then write('Палиндром'){если все совпало}
else write('Не палиндром');
readln
end.