Дан текстовый файл f получить текстовый файл с путем вычеркивания цифр из всех строк файла f алгоритм вычеркивания цифр из строки оформить в виде функции — Pascal(Паскаль)

program PascalGuru;

var
  f, t: text;
  s: string;

  { -------------------------------------------- }
function delete_cifra(s: string): string; { функция вычёркивания }
label 1;
var
  cifra: string;
  i: integer;
begin
  cifra := '0123456789';
1:
  for i := 1 to length(s) do
    if pos(s[i], cifra) <> 0 then
    begin
      delete(s, i, 1);
      goto 1;
    end;
  delete_cifra := s;
end;

{ -------------------------------------------- }
begin
  assign(f, 'file_in.txt');
  reset(f);
  assign(t, 'file_out.txt');
  rewrite(t);

  while not eof(f) do
  begin
    readln(f, s); { считывание с файла }
    writeln(t, delete_cifra(s)); { запись в файл преобразованной строки }
  end;
  writeln('Fail "file_out.txt" uspeshno zapisan...');

  close(f);
  close(t);
  readln;

end.