Дан целочисленный массив из 5 строк и 3 столбцов. Найти наибольший элемент массива и его местоположение — Pascal(Паскаль)

const
 m=5;
 n=3;
var
 b:array [1..m,1..n] of integer;
 i,j,imax,jmax,max:integer;
begin
randomize;
max:=b[1,1];
imax:=1;
jmax:=1;
for i:=1 to m do
begin
 for j:=1 to n do
 begin
  b[i,j]:=random(10)-5;
  write(b[i,j]:3);
   if b[i,j]>max then
    begin
     max:=b[i,j];
     imax:=i;
     jmax:=j;
    end;
 end;
writeln;
end;
writeln;
writeln('Max[',imax,';',jmax,']:=',max);
readln;
end.