Дана строка (прочесть из файла). Удалить из неё все знаки препинания

пренебрегал дописать нужно вывести это в отдельный файл (условие и результат)

Обе строчки, или последнюю выводить в файл?

Обе

var f: text;    s,st: string;    i: integer;begin    st:='.:;,!?';   assign (f,'C:\input.txt');   reset (f);   read (f,s);   close(f);   writeln('считана строчка:  ',s);   assign(f,'C:\output.txt');   rewrite(f);запись в файл начальной строчки      writeln(f,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); запись в файл новейшей строчки    

Немножко не вошло      запись в файл новейшей строчки    writeln(f,s);  close(f);  readln;end.