Дан двумерный массив размерностью 5*5. Получить новый массив путем деления всех элементов массива на наибольший по модулю элемент — Pascal(Паскаль)

const 
n=5;
var
a:array[1..n,1..n] of integer;
b:array[1..n,1..n] of real;
i,j:integer;
max:real;
begin
for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=20-random(50);
            write('  ',a[i,j]);
          end;
        writeln();
    end;
writeln('--------') ; 

max:=0;
for i:=0 to n do
 for j:=0 to n do
 begin
  if abs(a[i,j])>abs(max) then
    max:=a[i,j];
 end;
    
for i:=0 to n do
 for j:=0 to n do
  if max<>0 then
   b[i,j]:=a[i,j]/max;
   
writeln('--------',max) ; 

for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
             write('  ',b[i,j]:3:10);
          end;
        writeln();
    end;
    
end.