Во входном файле содержится информация об итогах зимней сессии на 1-м курсе

const
  fName = 'успеваемость.txt';
 
type
  tRec = record
    F : String;
    G : String;
    b : array of Integer;
    
    constructor (s : String);
    begin
      var w := s.ToWords;
      F := w[0]; G := w[1]; b := w[2:].Select(v->StrToInt(v)).toArray;
    end;
    
    function toString := $' {F,-10}  группа {G}  оценки: {b.JoinIntoString}';
  end;
 
begin
  var L := ReadAllLines(fName).Select(s->New tRec(s));
  WriteLn('a-1) список со средним баллом больше 4:');
  L.Where(v->v.b.Average>4).Select(v->v.toString).PrintLines;
  WriteLn('a-2) список группы с оценками и средним баллом:');
  var G := L.Select(v->v.G).Distinct.Sorted.Numerate.ToArray;
  try
    var gr := G[StrToInt(ReadString(G.Select(v->$'  {v[0]})  {v[1]}  ').JoinIntoString + NewLine + 'Введите порядковый номер группы (иначе - пропустить):').Trim)-1][1];
    WriteLn($'Список группы {gr}:');
    L.Where(v->v.G = gr).Select(v->v.toString + $' <{v.b.Average:f2}>').PrintLines;
  except
  end;
  WriteLn('b-1) список студентов имеющих больше 2 долгов:');
  L.Where(v->v.b.Count(o->o<3)>2).Select(v->v.toString).PrintLines;
  WriteLn('g-1) список студентов со средним баллом больше 4,5:');
  L.Where(v->v.b.Average>4.5).Select(v->v.toString).PrintLines;
  WriteLn('g-2) список неуспевающих:');
  L.Where(v->v.b.Count(o->o<3)>0).Select(v->v.toString).PrintLines;
end.