Создать программу, проверяющую является ли строка текстовым палиндромом
Вот мой рабочий вариант,НО,мне нужно его не много упростить. Помогите:(
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('palindrom')
else write('ne palindrom');
end;
var s:string;
begin
clrscr;
writeln('vvedite text:');
readln(s);
Format(s);
Palindrom(s);
readln
end.