Найти предмет, где успеваемость самая высокая

Program MM;
var 
a: array [,] of real;
m,n:integer;
i,j,max:real;
begin
  
randomize;
writeln('Укажите размер массива');
readln(m);
n:=m;
SetLength(a,m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
 a[j]:=random(5);
  a[i]:=random(10);
max:=a[0];
 
 for j:=0 to n-1 do
  if a[j] > max then
   max:=a[j];
   if a[j]< max then writeln('предмет',M);
 
  
  
 
end.

program MM;
 
const
  npred = 10;
 
type
  rec = record
    pred: string[128]; //сам предмет
    ocenki: array [1..npred] of integer; //оценки
    srball: real;
  end;
 
var
  a: array of rec;
  k, n: integer;
  i, j: integer;
  max, q: real;
 
begin
  randomize;
  write('Укажите размер массива: ');
  readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
  begin
    write('Введите название предмета: ');
    readln(a[i].pred);
    q := 0;
    for j := 1 to npred do
    begin
      a[i].ocenki[j] := random(5) + 2;
      q := q + a[i].ocenki[j];
    end; 
    a[i].srball := q / npred;
  end;
  
  for i := 0 to n - 1 do
  begin
    write(a[i].pred:16);
    for j := 1 to npred do
      write(a[i].ocenki[j]:4);
    writeln(a[i].srball:8:2);      
  end;
  max := a[0].srball;
  k := 0;
  for j := 0 to n - 1 do
    if a[j].srball > max then
    begin
      max := a[j].srball;
      k := j;
    end;
  writeln('Максимальный средний балл у предмета: ', a[k].pred);        
  writeln('Предметы, по которым хорошая успеваемость: ');        
  for i := 0 to n - 1 do    
    if a[i].srball > 3 then 
    begin
      write(a[i].pred:16);
      for j := 1 to npred do
        write(a[i].ocenki[j]:4);
      writeln(a[i].srball:8:2);      
    end;
  
  
end.