Обработка записей

type
  AssessmentsT = (integer, integer, integer, integer);
  Statement = record
    Surname, Name: string;
    Assessments: AssessmentsT;
    
    constructor(s, n: string; a: AssessmentsT);
    begin
      Surname := s;Name := n;
      Assessments := a;
    end;
  end;
 
var
  L: List<Statement>;
 
function F(a: integer) := (a = 4) or (a = 5);
 
begin
  L := new List<Statement>();
  
  for var i := 0 to ReadlnInteger('N:') - 1 do
  begin
    var p := ReadlnString().ToWords();
    var k := p.Skip(2).ToList().ConvertAll(x -> StrToInt(x));
    L.Add(new Statement(p[0], p[1], (k[0], k[1], k[2], k[3])));
  end;
  
  Writeln('Сдали 3 экзамена на 4 или 5:');
  L.Where(x -> Ord(F(x.Assessments.Item1)) + Ord(F(x.Assessments.Item2)) + Ord(F(x.Assessments.Item3)) + Ord(F(x.Assessments.Item4)) = 3).
  Select(x -> Format('{0} {1}', x.Surname, x.Name)).JoinIntoString(NewLine).Println();
  
  Writeln('Не сдали экзамены:');
  L.Where(x -> (x.Assessments.Item1 < 3) or (x.Assessments.Item2 < 3) or (x.Assessments.Item3 < 3) or (x.Assessments.Item4 < 3)).
  Select(x -> Format('{0} {1}', x.Surname, x.Name)).JoinIntoString(NewLine).Println();
end.