Типизированный файл: переписать в файл g все компоненты файла f, изымая все цифры - PascalABC.NET

{Даны текстовый файл f. Переписать в файл g все компоненты файла f,
изымая все цифры.}
var
  f,g:text;
  s:string;
  i:integer;
begin
  assign(f,'num1.txt');
  assign(g,'num2.txt');
  reset(f);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f,s);
      for i:=length(s) downto 1 do
        if s[i] in ['0'..'9'] then
          delete(s,i,1);
      writeln(g,s);
    end;
  close(f);
  close(g);
end.