Записать в файл текст без знаков препинания

var 
  a: array[1..50] of string;
  k, i, n : integer;
  s,max:string;
  f:text;
  
begin
writeln('введите длину');
readln(n);
writeln;
  Assign(f, 'text.txt');
  Reset(f);
  for k:=1 to n do
    if Not Eof(f) then Readln(f, a[k])
                      else a[k] := '';
  Close(f);
  Rewrite(f);
  for k:=1 to n do
   WriteLn(a[k]);
   
   
   {удаление цифр и знаков препинания}
for k:=1 to n do
     for i:=length(a[k]) downto 1 do
     if a[k][i] in ['0'..'9'] then delete(a[k],i,1);
     writeln;
for k:=1 to n do    
     for i:=length(a[k]) downto 1 do    
    if a[k][i] in [',', '.', ':', '!', '?'] then delete(a[k],i,1); 
     WriteLn('текст без запятых');
  for k:=1 to n do
   WriteLn(a[k]);
   write(f,a[k]);
   Close(f);
   end.

uses
  crt;
var
  a: array[1..50] of string;
  k, i, n : integer;
  s,max:string;
  f:text;
begin
  clrscr;
  Assign(f, 'text.txt');
  Reset(f);
  k:=1;
  while not eof(f) do
    begin
      Readln(f, a[k]);
      writeln(a[k]);
      inc(k);
    end;
  n:=k;
  Close(f);
  Rewrite(f);
  {удаление цифр и знаков препинания}
  for k:=1 to n do
    for i:=length(a[k]) downto 1 do
      if a[k][i] in ['0'..'9'] then
        delete(a[k],i,1);
  for k:=1 to n do
     for i:=length(a[k]) downto 1 do
      if a[k][i] in [',', '.', ':', '!', '?'] then
        delete(a[k],i,1);
  WriteLn('Текст без запятых:');
  for k:=1 to n do
    begin
      WriteLn(a[k]);
      writeln(f,a[k]);
    end;
  Close(f);
  readln;
end.