Сортировка двумерных массивов.

program Project1;
const n=20;
var x:array [1..20] of integer;
p,v,i:integer;
f:boolean;
begin
Randomize;
for i:=1 to n do
begin
x[I]:=Random(100);
write(x[I]:3);
end;
writeln;
f:=true; p:=19;
while f<>false do
begin
f:=false;
for I:=1 to p do
if x[I]>x[i+1] then begin
  v:=x[i+1];
  x[I+1]:=x[I];
  x[I]:=v;
  f:=true;
end;
p:=p-1
end;
writeln;
for i:=1 to n do write(x[I]:3);
Readln;
end.

Program n1;
Uses crt;
Const m=8;k=5;
Var a:array[1..m,1..k]of integer;
    v,i,j,n:integer;
    f:boolean;
Begin
 clrscr;
 randomize;
 writeln('Masiv: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3,' ');
    end;
   writeln;
  end;
 writeln('Kakuy stroku sortirovat?');
 read(n);
 repeat
  f:=true;
  for j:=1 to k-1 do
   if a[n,j]>a[n,j+1] then
    begin
     f:=false;
     v:=a[n,j];
     a[n,j]:=a[n,j+1];
     a[n,j+1]:=v;
    end;
 until f;
 writeln('Masiv obrabotano: ');
 for i:=1 to m do
  begin
   if i=n then textcolor(10) else textcolor(3);
   for j:=1 to k do write(a[i,j]:3,' ');
   writeln;
  end;
 readkey;
End.

Program n2;
Uses crt;
Const m=5;k=6;
Var a:array[1..m,1..k]of integer;
    m1,k1,m2,k2,m3,k3,v,i,j,n:integer;
    f:boolean;
Begin
 clrscr;
 randomize;
 m1:=1;k1:=1;m2:=2;k2:=1;m3:=3;k3:=1;
 writeln('Masiv: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3,' ');
     if a[i,j]>a[m1,k1] then begin m1:=i;k1:=j end;
    end;
   writeln;
  end;
 for i:=1 to m do
  for j:=1 to k do
   if (a[i,j]>a[m2,k2])and(i<>m1)and(j<>k1) then begin m2:=i;k2:=j end;
 for i:=1 to m do
  for j:=1 to k do
   if (a[i,j]>a[m3,k3])and(i<>m1)and(j<>k1)and(i<>m2)and(j<>k2) then begin m3:=i;k3:=j end;
 writeln('Masiv obrabotano: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     if ((i=m1)and(j=k1))or((i=m2)and(j=k2))or((i=m3)and(j=k3)) then textcolor(10) else textcolor(3);
     write(a[i,j]:3,' ');
    end;
   writeln;
  end;
 readkey;
End.

Program n1;
Uses crt;
Const m=8;k=5;
Var a:array[1..m,1..k]of integer;
    v,i,j,n:integer;
    f:boolean;
Begin
 clrscr;
 randomize;
 writeln('Masiv: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3,' ');
    end;
   writeln;
  end;
 writeln('Kakuy stolbec sortirovat?');
 read(n);
 repeat
  f:=true;
  for j:=1 to m-1 do
   if a[j,n]>a[j+1,n] then
    begin
     f:=false;
     v:=a[j,n];
     a[j,n]:=a[j+1,n];
     a[j+1,n]:=v;
    end;
 until f;
 writeln('Masiv obrabotano: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     if j=n then textcolor(10) else textcolor(3);
     write(a[i,j]:3,' ');
    end;
   writeln;
  end;
 readkey;
End.

Program n2;
Uses crt;
Const m=5;k=6;
Var a:array[1..m,1..k]of integer;
    max1,max2,m1,k1,m2,k2,m3,k3,v,i,j,n:integer;
    f:boolean;
Begin
 clrscr;
 randomize;
 m1:=1;k1:=1;m2:=2;k2:=1;m3:=3;k3:=1;
 writeln('Masiv: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3,' ');
     if a[i,j]>a[m1,k1] then begin m1:=i;k1:=j end;
    end;
   writeln;
  end;
 max1:=a[m1,k1];a[m1,k1]:=-1;
 for i:=1 to m do
  for j:=1 to k do
   if (a[i,j]>a[m2,k2]) then begin m2:=i;k2:=j end;
 max2:=a[m2,k2];a[m2,k2]:=-1;
 for i:=1 to m do
  for j:=1 to k do
   if (a[i,j]>a[m3,k3]) then begin m3:=i;k3:=j end;
 a[m1,k1]:=max1;a[m2,k2]:=max2;
 writeln('Masiv obrabotano: ');
 for i:=1 to m do
  begin
   for j:=1 to k do
    begin
     if ((i=m1)and(j=k1))or((i=m2)and(j=k2))or((i=m3)and(j=k3)) then textcolor(10) else textcolor(3);
     write(a[i,j]:3,' ');
    end;
   writeln;
  end;
 readkey;
End.