Двумерные массивы: определить лучшую по средней оценке группу

Program osenka;
var 
   x:  array [1..20, 1..3] of integer;
   y:  array [1..20, 1..3] of integer;
   z:  array [1..20, 1..3] of integer;
   c:  array [1..3] of integer;  
   nmax, max :real;
 
   
Begin
   
   for  i: integer:=0 to 20 do
     begin
   for j: integer:=0 to 3 do 
        x[i,j]:=random(5)+1; 
        c[0]:=x[i][j];
        y[i,j]:=random(5)+1; 
        c[1]:=y[i][j];
        z[i,j]:=random(5)+1; 
        c[2]:=z[i][j];
   
       writeln(x[i,j]);
       writeln(y[i,j]);
       writeln(z[i,j]);
     end;
     c[0]:=c[0]/60; c[1]:=c[1]/60; c[2]:=c[2]/60;
     max:=c[0]; nmax:=0;
     for var i:=0 to 3 do
       begin
          if (c[i]>max) then
            begin
               max:=c[i]; nmax:=i;
            end;
          writeln(nmax);
       end;
end.

program osenka;
 
var
  x: array [0..20, 0..3] of integer;
  y: array [0..20, 0..3] of integer;
  z: array [0..20, 0..3] of integer;
  c: array [0..3] of real;  
  nmax, max: real;
  i, j: integer;
 
begin
  for i := 0 to 20 do
  begin
    for j := 0 to 3 do 
      x[i, j] := random(5) + 1; 
    c[0] := x[i][j];
    y[i, j] := random(5) + 1; 
    c[1] := y[i][j];
    z[i, j] := random(5) + 1; 
    c[2] := z[i][j];
    writeln(x[i, j]);
    writeln(y[i, j]);
    writeln(z[i, j]);
  end;
  c[0] := c[0] / 60;
  c[1] := c[1] / 60;
  c[2] := c[2] / 60;
  max := c[0];
  nmax := 0;
  for i := 0 to 3 do
  begin
    if (c[i] > max) then
    begin
      max := c[i];
      nmax := i;
    end;
    writeln(nmax);
  end;
end.