Дана матрица A(n,n) Получить новейшую матрицу путем разделения всех частей матрицы

program zz1;

const n = 4;  

      // задаем количество частей в массиве

var  i, j:integer; // задаем переменные целого типа

b:array [1..n,1..n] of real;

max,min,s2:real;

begin

for i:=1 to n do

 for j:=1 to n do // получаем числа и записываем их в массив

   b[i,j]:=random(101);

for i:=1 to n do  // выводим исходный массив на экран

    begin

for j:=1 to n do

   write(b[i,j]:8:2);

   writeln;

   end;

  max:=0;min:=100000;

for i:=1 to n do  

  for j:=1 to n do

begin

  if b[i,j] gt; max then  max:=b[i,j];

  if b[i,j] lt; min then  min:=b[i,j];

end;

s2:=max-min;

for i:=1 to n do  

  for j:=1 to n do

  b[i,j]:=b[i,j]/s2;

writeln;

for i:=1 to n do  // выводим приобретенный массив на экран

    begin

for j:=1 to n do

   write(b[i,j]:8:2);

   writeln;

   end;

end.