В полученных матрицах упорядочить по возрастанию элементы первых строк

uses crt;
type mat=array [1..7,1..7] of integer;
var  a,b: mat;
     i,j: integer;
 
procedure GenM (n: integer; var z: mat);
begin
for i:=1 to n do
    for j:=1 to n do
        z[i,j]:=random(19)-9;
end;
 
procedure Vyvod(c: char; n: integer; var z: mat);
begin
writeln('Matrix ',c);
for i:=1 to n do
    begin
    for j:=1 to n do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
procedure Sort(n: integer; var z: mat);
var k,buf: integer;
begin
k:=0;
while k<=n do
begin
for j:=1 to n-1 do
    if z[1,j]>z[1,j+1] then
       begin
       buf:=z[1,j];
       z[1,j]:=z[1,j+1];
       z[1,j+1]:=buf;
       end;
    inc(k);
    end;
end;
 
begin
GenM (6,a);
Vyvod('A',6,a);
Sort(6,a);
Vyvod('A',6,a);
writeln('press Enter to continue');
readln;
clrscr;
GenM (7,b);
Vyvod('B',7,b);
Sort(7,b);
Vyvod('B',7,b);
readkey;
end.