Строки, текст полиндром

var s,s1:string;
.................................
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
if s1= s then write('Palindrom!')
else write('No palindrom!');

uses crt;
const rz=['.',',',';',':','?','!','-',' '];
procedure Format(var st:string);
var i:byte;
begin
for i:=length(st)downto 1 do
if st[i] in rz then delete(st,i,1);
for i:=1 to length(st) do
st[i]:=upcase(st[i]);
for i:=1 to length(st) do
if st[i] in ['а'..'п'] then st[i]:=chr(ord(ord(st[i])-32))
else if st[i] in ['р'..'я'] then st[i]:=chr(ord(ord(st[i])-80))
else if st[i]='ё' then st[i]:='Ё';
end;
procedure Palindrom(st:string);
var s1:string;
    i:byte;
begin
s1:='';
for i:=length(st)downto 1 do
s1:=s1+st[i];
if st=s1 then write('Палиндром')
else write('Не палиндром');
end;
var s:string;
begin
clrscr;
writeln('Введите текст:');
readln(s);
Format(s);
Palindrom(s);
readln
end.

if (s[i]<'a')or(s[i]>'z') then delete(s,i,1) ;

Function Pal(S: String) : Boolean;
Begin
     If Length(S)<=1{если 0 или 1 символ, это палиндром}
     Then Pal:=True
     Else Pal:= (S[1]=S[Length(S)]) and Pal(Copy(S, 2, Length(S) - 2));
{иначе проверяем совпадение символов симметрично от концов строки к середине}
End;