Работа с записями и файлами

const
  fName = 'Хоккеисты.1';
  Команды : array [Boolean] of String = ('Динамо', 'Спартак');
 
type
  типХоккеист = record
    НеДинамоДаСпартак : Boolean;
    Имя : String[100];
    ЗаброшеноШайб, ГолевыхПередач, ЗаработанноеШтрафноеВремя : Integer;
  end;
    
begin
  var f : file of типХоккеист;
  Rewrite(f, fName);
  for var Команда := False to True do
    for var i := 1 to 10 do
      begin
        var Игрок : типХоккеист;
        WriteLn($'Введите сведения о {i} игроке {Команды[Команда]}:');
        Игрок.НеДинамоДаСпартак := Команда;
        Игрок.Имя                       := ReadLnString ('Имя:');
        Игрок.ЗаброшеноШайб             := ReadLnInteger('Заброшенных шайб:');
        Игрок.ГолевыхПередач            := ReadLnInteger(' Голевых передач:');
        Игрок.ЗаработанноеШтрафноеВремя := ReadLnInteger('Заработанное штрафное время:');
        Write(f, Игрок);
        WriteLn('~'*40);
      end;
  Close(f);
  WriteLn($'Файл "{fName}" создан.');
end.

const
  fNameIn = 'Хоккеисты.1';
  fNameOut = 'Хоккеисты.txt';
  Команды : array [Boolean] of String = ('Динамо', 'Спартак');
 
type
  типХоккеист = record
    НеДинамоДаСпартак : Boolean;
    Имя : String[100];
    ЗаброшеноШайб, ГолевыхПередач, ЗаработанноеШтрафноеВремя : Integer;
  end;
 
begin
  var L := New List<типХоккеист>;
  var f : file of типХокке`ист;
  Reset(f, fnameIn);
  while Not EOF(f) do
    begin
      var Хоккеист : типХоккеист;
      Read(f, Хоккеист);
      L.Add(Хоккеист);
    end;
  Close(f);
  
  var s : String;
  for var Команда := False to True do
    begin
      s += $'Шесть лучших игроков команды {Команды[Команда]}:';
      foreach var x in L.Where(x->x.НеДинамоДаСпартак=Команда).OrderByDescending(x->x.ЗаброшеноШайб+x.ГолевыхПередач).Where((x,i)->i<6) do
        s += $'{NewLine}{x.Имя} - сумма очков: {x.ЗаброшеноШайб+x.ГолевыхПередач}';
      s += NewLine;
    end;
    
  WriteLn(s);
  WriteAllText(fNameOut, s);
  WriteLn($'Информация продублирована в текстовый файл "{fNameOut}"');
end.