Задача!!!!!!!!!

[jikol]

Вот задача :Данная матрица размерностью NxM, все элементы матрицы являются действительными числами, которые определяются пользователем программы. Расположить элементы каждого столбца по возрастанию, полученную матрицу распечатать таким образом, чтобы каждая строка был отдельно.
Вот решение:
Program B8;
const n=3;
m=3;
var
A:array[1..n,1..m] of real;
i,j,k:integer;
R:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
write('vvedit A[',i,',',j,']=');
readln(A[i,j]);
end;
for j:=1 to m do
for k:=1 to n-1 do
for i:=1 to n-1 do
if A[i,j]>A[i+1,j] then
begin R:=A[i,j];
A[i,j]:=A[i+1,j];
end;
for i :=1 to n do
begin
for j :=1 to m do
write (A[i,j],' ');
writeln;
end;
end.
Делал не самПомогите с блок-схемой , и пояснением к программе!(ОЧЕНЬ ВАЖНО ПОЯСНЕНИЕ)Заранее Благодарен!!!