Вы че то замутили )
Код:
uses
SysUtils;
const
M=10;
N=10;
var
a:array [1..M,1..N] of integer;
j,i,Amin,k:integer;
begin
randomize;
for i:=1 to M do
begin
for j:=1 to N do
begin
a[i,j]:=trunc(random(10));
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to M do
begin
for j:=1 to N do
for k:=1 to N-1 do
begin
if A[k,j]>A[k+1,j] then
begin
Amin:=A[k+1,j];
A[k+1,j]:=A[k,j];
A[k,j]:=Amin;
end;
end;
end;
for i:=1 to M do
begin
for j:=1 to N do
begin
write(a[i,j],' ');
end;
writeln;
end;
readln;
end.