Определить симметричность произвольного текста

var i: integer;
        f: boolean;
        s,
        stek1,stek2: string; {стеки}
 
procedure LowCase(var s: string);
var i: integer;
begin
for i:=1 to Length(s) do
case s[i] of
    'A'..'Z', 'А'..'П': s[i]:=chr(ord(s[i])+32);
    'Р'..'Я': s[i]:=chr(ord(s[i])+80);
    'Ё': s[i]:='ё';
    end;
end;
 
procedure Push(var stek: string; element: char);
begin
stek := stek + element;
end;
 
function Pop(var stek: string): char;
begin
Pop := stek[length(stek)];
delete(stek,length(stek),1);
end;
 
begin
writeln('Введите текст:');
readln (s);
LowCase(s);
 
if s[length(s)]='.' then delete(s,length(s),1);
 
for i:=1 to length(s) do
    begin
        push(stek1,s[i]);
        push(stek2,s[length(s)-i+1]);
    end;
 
f:=true;
for i:=1 to length(stek1) do
    if not (pop(stek1)=pop(stek2)) then f:=false;
 
if f then writeln('Текст симметричный')
         else writeln('Текст не симметричный'); readln; end.