Здравствуйте, rail!
[code lang=pascal]const m=5;
n=6;
var c:array[1..m,1..n] of integer;
i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=-20+random(41);
write(c[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if c[i,j]>c[i,k] then
begin
x:=c[i,j];
c[i,j]:=c[i,k];
c[i,k]:=x;
end;
writeln('Массив с отсортированными строками');
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]:4);
writeln;
end;
end.[/code]

Здравствуйте, rail!

Смотрите приложение:
[code lang=pascal]const
n=20;
var
a:array[1..5,1..6]of integer;
b,c,d,e:integer;
begin
d:=0;
for b:=1 to 5 do
begin
for c:=1 to 6 do
begin
a[b,c]:=random(2*n)-n;
write(a[b,c]:4);
end;
writeln;
end;
for b:=1 to 5 do
for c:=1 to 5 do
for d:=c+1 to 6 do
if a[b,c]>a[b,d]then
begin
e:=a[b,c];
a[b,c]:=a[b,d];
a[b,d]:=e;
end;
writeln('result:');
for b:=1 to 5 do
begin
for c:=1 to 6 do
write(a[b,c]:4);
writeln;
end;
end.[/code]
Удачи!