Дана матрица 7*8, задается случайными двузначными числами. Упорядочить матрицу по возрастанию элементов первой строки

program labb;
var a:array [1..7,1..8]of real;
stlb:array [1..8] of real;
i,j,k:integer;
x:real;
begin
randomize;
writeln(' ishodnyi ');
for i:=1 to 7 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(20)+10;
write(a[i,j]:2:0,'  ');
end;
writeln;
end;
i:=1;
for j:=1 to 7 do begin
 for k:=j+1 to 8 do begin
  if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
end;
end;
writeln(' otsort ' );
for i:=1 to 7 do
begin
for j:=1 to 8 do
begin
write(a[i,j]:2:0,'  ');
end;
writeln;
end;
end.

const m=7;
      n=8;
var a:array [1..m,1..n]of integer;
      i,j,k,x:integer;
begin
randomize;
writeln(' ishodnyi ');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=1 to n-1 do
for i:=j+1 to n do
if a[1,j]>a[1,i] then
for k:=1 to m do
 begin
  x:=a[k,j];
  a[k,j]:=a[k,i];
  a[k,i]:=x;
 end;
writeln(' otsort ' );
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.

const N = 7;
const M = 8;
 
var a: array[1..N, 1..M] of integer;
var i, j, t: integer;
 
begin
    randomize;
    writeln('Original matrix:');
    for i := 1 to N do begin
        for j := 1 to M do begin
            a[i, j] := 10 + random(20);
            write(a[i, j]:3);
        end;
        writeln;
    end;
    i := 2;
    while i <= M do begin
        if (i = 1) or (a[1, i-1] <= a[1, i]) then begin
            inc(i);
        end else begin
            for j := 1 to N do begin
                t := a[j, i];
                a[j, i] := a[j, i-1];
                a[j, i-1] := t;
            end;
            dec(i);
        end;
    end;
    writeln('Sorted matrix:');
    for i := 1 to N do begin
        for j := 1 to M do begin
            write(a[i, j]:3);
        end;
        writeln;
    end;
end.