Напишите программу, которая будет выводить в файл типа В фамилии и имена участников, прошедших на региональный тур – пол

program porgram_4_1;
uses unit_4_1;
 
var
  aFile: Text;
  bFile: ApprenticeFile;
  records: List<Apprentice> := new List<Apprentice>;
begin
  aFile := OpenWrite('source.txt');
  initSourceFile(aFile);
  aFile.Close();
  aFile := OpenRead('source.txt');
  printTextFile(aFile);
  aFile.Reset();
  records := getRecordsFromFile(aFile);
  aFile.Close();
  rewrite(bFile, 'out.dat');
  writeRecordsToFile(bFile, records);
  bFile.Reset();
  printBinFile(bFile);
  bFile.Close()
end.
 
 
unit unit_4_1;
 
interface
type
Apprentice = record
  lastName: array[0..19] of Char;
  firstName: array[0..19] of Char;
  score: Integer;
  school: Integer;
end;
type
ApprenticeFile = file of Apprentice;
 
procedure initSourceFile(f: Text);
function getRecordsFromFile(f: Text): List<Apprentice>;
procedure printTextFile(f: text);
procedure writeRecordsToFile(f: file of Apprentice; records: List<Apprentice>);
procedure printBinFile(f: file of Apprentice);
 
implementation
 
procedure initSourceFile(f: Text);
begin
  f.Writeln('Кормилин Александр 67 3');
  f.Writeln('Денискин Анрей 51 4');
  f.Writeln('Иванова Татьяна 95 3');
  f.Writeln('Савкуев Мурат 42 5');
end;
 
function getRecordsFromFile(f: Text): List<Apprentice>;
var
  chunks: Array of String;
  records: List<Apprentice> := new List<Apprentice>;
  appr: Apprentice;
begin
  while(not f.SeekEof()) do
  begin
    chunks := f.ReadlnString().Split(' ');
    for var i := 0 to chunks[0].Length > 20 ? 19 : chunks[0].Length-1 do
    begin
      appr.lastName[i] := chunks[0][i+1];
    end;
    for var i := 0 to chunks[1].Length > 20 ? 19 : chunks[1].Length-1 do
    begin
      appr.firstName[i] := chunks[1][i+1];
    end;
    appr.school := chunks[2].ToInteger();
    appr.score := chunks[3].ToInteger();
    records.Add(appr);
    for var i := 0 to 19 do
    begin
      appr.lastName[i] := ChrAnsi(0);
      appr.firstName[i] := ChrAnsi(0);
    end;
  end;
  getRecordsFromFile := records;
end;
 
procedure printTextFile(f: text);
begin
  while(not f.SeekEof()) do
  begin
    writeln(f.ReadlnString());
  end;
end;
 
procedure writeRecordsToFile(f: file of Apprentice; records: List<Apprentice>);
begin
  foreach var appr in records do
  begin
    f.Write(appr);
  end;
end;
 
procedure printBinFile(f: ApprenticeFile);
var
  appr: Apprentice;
begin
  while(not f.Eof) do
  begin
    appr := f.ReadElement();
    foreach var c in appr.lastName do
    begin
      if c <> ChrAnsi(0) then write(c)
      else begin write(' '); break; end;
    end;
    foreach var c in appr.firstName do
    begin
       if c <> ChrAnsi(0) then write(c)
       else begin write(' '); break; end;
    end;
    writeln(appr.school, ' ', appr.score);
  end;
end;
 
end.