В матрице В размером 4х3 найти наибольший по модулю элемент — Pascal(Паскаль)

uses crt;
var b:array [1..4, 1..3] of integer;{матрица}
    i,j,max,imax,jmax:integer;
begin
clrscr;
writeln('Vvedite 12 elementov matricy:');
{введите например 11 чисел от -8 до +8 и одно число -9}
for i:=1 to 4 do
for j:=1 to 3 do
  begin
    write ('b[',i,',',j,']=');
    readln (b[i,j]);
  end;
clrscr;{очищаем экран от ввода}
writeln('Matrica:');
for i:=1 to 4 do
  begin
   for j:=1 to 3 do
   write(b[i,j]:4);
   writeln;
  end;
max:=abs(b[1,1]);{пусть макс по модулю первый элемент}
for i:=1 to 4 do
for j:=1 to 3 do
if abs(b[i,j]) > max then{если какой-то элемент больше предыдущего по модулю то он макс}
  begin
   max:=abs(b[i,j]);{то он макс}
   imax:=i;{номер строки}
   jmax:=j;{номер столбца}
  end;
write('Max po moduly=',b[imax,jmax]);{выводим не значение макс, а само число, т.е в нашнм случае не 9, а -9}
readln
end.