Из текстового файла input.txt с данными вывести информацию в файл output.txt по заданному условию

type
  tStud = record
    Name : String[10];
    A, B, C : Integer;
    Sr : Real;
  end;
  
begin
  var F := OpenRead('input.txt');
  var count := F.ReadLnInteger;
  WriteLn('Количество сведений: ', count);
  var a : array of tStud;
  SetLength(a, count);
  for var i := 0 to count-1 do
    begin
      a[i].Name := F.ReadLnString;
      a[i].A := F.ReadInteger;
      a[i].B := F.ReadInteger;
      a[i].C := F.ReadLnInteger;
      a[i].Sr := (a[i].A + a[i].B + a[i].C) / 3;
      WriteLnFormat('{0}) {1}: {2} {3} {4} <{5:0.00}>', i+1, a[i].Name, a[i].A, a[i].B, a[i].C, a[i].Sr);
    end;
  F.Close;
  
  var swaps : Boolean;
  repeat
    swaps := False;
    for var i := 0 to count-2 do
      if a[i].Name > a[i+1].Name then
        begin
          Swap(a[i], a[i+1]);
          swaps := True;
        end
      else if (a[i].Name = a[i+1].Name) and (a[i].Sr > a[i+1].Sr) then
        begin
          Swap(a[i], a[i+1]);
          swaps := True;
        end
  until Not swaps;
  
  var O := OpenWrite('output.txt');
  foreach var S : tStud in a do
    O.WriteLn(S.Name, #32, S.Sr);
  O.Close;
end.