Найти номер строки и столбца максимального элемента.(PascalABCNET)

[FlayGlam]

Двумерные массивы.
Найти номер строки и столбца максимального элемента.

[newerow1989]

const n=8;
var i,j,imax,jmax:integer;
    p:array[1..n,1..n] of real;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(20)+Random;
         Write(p[i,j]:7:4,'  ');
      end;
      Writeln;
   end;
   Writeln;
   imax:=1;
   jmax:=1;
   For i:=1 to n do
      For j:=1 to n do
         If p[imax,jmax]<p[i,j] then
         begin
            imax:=i;
            jmax:=j;
         end;
   Writeln('i = ',imax);
   Writeln('j = ',jmax);
   Readln;
end.

[FlayGlam]

Пасибо большое

[newerow1989]