Матрицы нахождение большего элемента(PascalABC.NET)

[rikol]

Для матрицы из 3 строк и 7 столбцов отпечатать номер каждого столбца, в котором значение его наибольшего элемента оказалось меньше заданной величины, и число таких элементов.

[newerow1989]

var p:array[1..3,1..7] of integer;
    max:array[1..7] of integer;
    i,j,n,c:integer;
begin
   Randomize;
   For i:=1 to 3 do
   begin
      For j:=1 to 7 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 7 do
   begin
      max[j]:=p[1,j];
      For i:=2 to 3 do
         If max[j]<p[i,j] then
            max[j]:=p[i,j];
      //Write(max[j]:2,'  ');
   end;
   Writeln;
   Write('n = ');Readln(n);
   c:=0;
   For j:=1 to 7 do
      If max[j]<n then
      begin
         Writeln('#',j);
         c:=c+1;
      end;
   Writeln('c = ',c);
   Readln;
end.