Задача паскаль Опции

[Трям]

Задана матрица (двумерный массив) 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[i]:=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[i],' '); 
 end.

вот такая задачка, помогите пожалуйста насчет ошибок в решении и с блок схемой(вернее программу чтобы блок схемы составлять посоветуйте пожалуйста)