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

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.