задача паскаль

Задана матрица (двумерный массив) A размером N x М , состоящая из действительных элементов. Получить новую матрицу путем умножения всех элементов данной матрицы на ее наибольший элемент. Сформировать вектор из элементов главной диагонали и отсортировать его по возрастанию.
var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
i,j,n,m,p:integer;
begin
read(n,m);
p:=low(p);
for i:=1 to n do
for j:=1 to m do begin
read(a[i,j]);
if a[i,j]>p then p:=a[i,j];end;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=a[i,j]*p;
write(a[i,j],' ');end;
writeln;end;
for i:=1 to n do
b:=round(a[i,i]/p);
for i:=1 to n do
for j:=1 to n-1 do
if b[j]>b[j+1] then begin p:=b[j];b[j]:=b[j+1];b[j+1]:=p;end;
for i:=1 to n do
write(b,' ');
end.
Помогите с болок схемой пожалуйста, только не знаю решение правильное или нет