Вывести сведения про ученых кандидатов технических наук

uses System.IO, System;
begin
  writeln(system.string.Join(Environment.NewLine,&File.ReadAllLines('ученый',Encoding.Default).Where((s:string)->pos('к.т.н.',s)>0)));
end.

uses System.IO, System;
var
  l:array of string;
begin
  l:=&File.ReadAllLines('ученый',Encoding.Default);
  writeln('Файл ученый:',NewLine,system.string.Join(NewLine,l.Select((s:string)->s)));
  l:=l.Where((s:string)->pos('к.т.н.',s)>0).ToArray;
  &File.WriteAllLines('к.т.н.',l,Encoding.Default);
  writeln('Файл к.т.н.:');
  writeln(system.string.Join(NewLine,&File.ReadAllLines('к.т.н.',Encoding.Default).Select((s:string)->s)));
end.

var
  l:string;
  fin,fout:text;
begin
{  l:=&File.ReadAllLines('ученый',Encoding.Default);
   writeln('Файл ученый:',NewLine,system.string.Join(NewLine,l.Select((s:string)->s)));
   l:=l.Where((s:string)->pos('к.т.н.',s)>0).ToArray;
  &File.WriteAllLines('к.т.н.',l,Encoding.Default);
}
  assign(fin,'ученый');assign(fout,'к.т.н.');
  reset(fin);rewrite(fout);
  while not eof(fin) do begin
    readln(fin,l);
    writeln(l);
    if pos('к.т.н.',l)>0 then writeln(fout,l);
  end;  
  close(fin);
  close(fout);
  writeln('Файл к.т.н.:');
 {writeln(system.string.Join(NewLine,&File.ReadAllLines('к.т.н.',Encoding.Default).Select((s:string)->s)));}
  reset(fout);
  while not eof(fout) do begin
    readln(fout,l);
    writeln(l)
  end;
  close(fout);
end.