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

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.