Найти наибольший элемент матрицы и его индексы

const
 n = 6;
var
 a: array[1..4,1..n] of integer;
 i,j,max,o,p: integer;
begin
 for i:= 1 to 4 do
 for j:= 1 to n do
   a[i,j]:= random(20)-8;
 for i:= 1 to 4 do begin
   writeln;
   for j:= 1 to n do
   write(a[i,j]:3);
 end;
 for i:= 1 to 4 do
 for j:= 1 to n do begin
   if abs(a[i,j]) > max then begin
     max:= a[i,j];
     o:= i;
     p:= j;
   end;
 end;
 writeln;
 writeln('max element = ',max,' ego rasspolozhenie - [',o,',',p,']');
end.

uses
  Crt;
const
  N=4;{êîëè÷åñòâî ñòðîê}
  M=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..N,1..M] of integer;
  i,j,imax,jmax:integer;
begin
  ClrScr;
  imax:=1;
  jmax:=1;
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=random(8)-4;
      if abs(a[i,j])>abs(a[imax,jmax]) then
      begin
        imax:=i;
        jmax:=j
      end;
      Write(a[i,j]:2,' ')
    end;
    WriteLn
  end;
  WriteLn('Ìàêñèìóì - a[',imax,',',jmax,']:=',a[imax,jmax])
end.

uses crt;
const
 n = 6;
var
 a: array[1..4,1..n] of integer;
 i,j,max,o,p: integer;
begin
 randomize;
 for i:= 1 to 4 do
 for j:= 1 to n do
   a[i,j]:= random(20)-8;
 for i:= 1 to 4 do begin
   writeln;
   for j:= 1 to n do
   write(a[i,j]:3);
 end;
 for i:= 1 to 4 do
 for j:= 1 to n do begin
   if abs(a[i,j]) > max then
     max:= abs(a[i,j]);
 end;
 for i:= 1 to 4 do
 for j:= 1 to n do begin
   if (a[i,j] = max) then begin
     writeln;
     writeln('maks element = ',max,' ego rasspolozhenie - [',i,',',j,']');
   end;
 end;
end.