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

Question

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

Answer 1

// 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 должны находиться в той же папке, что и программа, в противном случае надо указать полные имена файлов.

Answer 2

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.