I = 2 байта, K = 56 символов.
I = i*K = 2 * 56 = 112 байт
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.