Дана строка (прочитать из файла). Удалить из неё все знаки препинания (.; :,!?). Результат вывести на экран.

Var f: text;

s, st: string;

i: integer;

begin

st:='.:;,?!';

assign (f,'C:/input. txt');

reset (f);

read (f, s);

close (f);

writeln ('считана строка: ', s);

i:=1;

repeat

if pos (s[i], st) >0 then

begin

delete (s, i, 1);

i:=i-1;

end;

i:=i+1;

until i>length (s);

writeln ('новая строка: ', s);

readln;

end.