Подсчет числа школьников, имеющих пять по информатике в данном классе

var
  cl: array of array of byte;
  cls: array of string;
  Istr: string;
begin
  randomize;
  Writeln('Введитее количество предметов');
  var par: integer:= ReadlnInteger;
  cls:= new string [par];
  setlength(cl,par); 
  for var i: integer:= 0 to par-1 do
    begin
      cls[i]:= i.ToString;
      cl[i]:= new byte[par];
      for var j: integer:= 0 to par-1 do
        cl[i,j]:= Random(5)+1;
    end;
  //cls.Println('; ');
  Writeln('----------------------------------');
  for var i: integer:= 0 to par-1 do
    begin
      Write(cls[i],' | ');
      cl[i].Println('; ');
    end;
  Writeln('----------------------------------');
  Writeln('Введите предмет, для выборки отличников');
  Readln(Istr);
  for var i: integer:= 0 to par-1 do
    if cls[i] = Istr
      then
        Writeln(cl[i].Where(x -> x=5).Count);
end.