Найти и вывести фамилии тех студентов, которые все экзамены сдали на 9

const
    m = 4;
 
type
    Ocenka = record
        predmet : String[15];
        ball : 1..10; //или какие в вашей стране оценки предусмотрены
    end;
    Studentota = record
        fam : String[25];
        oc : Array[1..m] Of Ocenka;
    end;
var
    mass : Array[1..100] Of Studentota;
    i, j, n : Byte;
begin
    //ввод данных
    Write('n='); ReadLn(n);
    for i := 1 to n do
        with mass[i] do
        begin
            Write('fam='); ReadLn(fam);
            for j := 1 to m do
                with oc[j] do
                begin
                    Write('   predmet: '); ReadLn(predmet);
                    Write('   ocenka: '); ReadLn(ball);
                end;
        end;
    //поиск и вывод отличников
    for i := 1 to n do
        with mass[i] do
            if (oc[1].ball = 9) And (oc[2].ball = 9) And (oc[3].ball = 9) And (oc[m].ball = 9) then //можно циклом пробегаться
                WriteLn(fam);
end.

  var i,j:byte;
      a: array[1..16,1..4] of double;
begin
  randomize;
  writeln('Ocenki:');
  for i:=1 to 16 do
    begin
      write(i,') ');
      for j:=1 to 4 do
        begin
          a[i,j]:=random(10)+1;
          write(' ',a[i,j]:1:0,' ');
        end;
      writeln;
    end;
  a[12,1]:=9; a[12,2]:=9; a[12,3]:=9; a[12,4]:=9;
  for i:=1 to 16 do
    begin
      if (a[i,1]=9) and (a[i,2] = 9) and (a[i,3]=9) and (a[i,4]=9) then
      writeln('Tolko 9-ki u studenta Nomer: ',i);
    end;
  readln
end.