Все лабораторные работы по паскалю / 4 лаб. Строки / Program8

uses crt;
const z=':;! ,./';
var s,d:string;
k,i:integer;
begin
clrscr;
write('Введите строку: ');
readln(s);
for i:=1 to length(s) do
if pos(s[i],z)>0
then begin delete(s,i,1); dec(i); end;
k:=0;
for i:=1 to length(s)do
if s[i]<>s[length(s)-i+1] then k:=1;
if k=0 then writeln('Является палиндромом')
else writeln('Не является палиндромом');
readln;
end.