Как изменить программу чтобы в тексте удалить все знаки препинания? ​

var s,p: string;

i: integer;

begin

write('Введите текст: ');

readln(s);

p:=s;

for i:=1 to length(s) do

if (s[i]='.') or (s[i]='!') or (s[i]='?') or (s[i]=',')

then delete(p,pos(s[i],p),1);

write('результат: ',p);

end.