Блок-схема и описание програмы(Паскаль)

[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.
Делал не самПомогите с блок-схемой , и пояснением к программе!(ОЧЕНЬ ВАЖНО ПОЯСНЕНИЕ)Заранее Благодарен!!

[Hacker19_90]

Пиши в асю помогу с блок-схемой и пояснением! за минимальное вознаграждение!

[jikol]

Блин , а нельзя просто людям помогать?!только выгода должна быть?!