Переписать в текстовый файл Т2 содержимое текстового файла Т1 без строк, содержащих цифры (Паскаль)

var s: string;    f1,f2: text;    i,k: integer;begin  assign(f1,'T1.txt');  reset(f1);  assign(f2,'T2.txt');  rewrite(f2);  while not eof(f1) do  begin     k:=0;     readln(f1,s);     for i:=1 to length(s) do       if s[i] in ['0'..'9'] then       begin          k:=1;          break;       end;     if k=0 then writeln(f2,s);  end;  close(f1);  close(f2);end.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin  ReadLines('T1.txt').Where(s->s.Matches('\d').Count=0).WriteLines('T2.txt')end.Файлы Т1 и Т2 должны находиться в той же папке, что и программа, в противном случае надо указать полные имена файлов.