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

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.