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

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.