Дан целый массив из 4 строк и 5 столбцов. Упорядочить массив по возрастанию элементов первой строки — Pascal(Паскаль)

Program Primer1;
 Uses crt;
 Type TMass=Array [1..4,1..5] of Integer;
 var mass:TMass;
 Procedure Vvod(var a:TMass);
 var i,j:Integer;
  begin
    For i:=1 to 4 do
    For j:=1 to 5 do
     begin
       Write('a[',i,',',j,']=');
       Readln(a[i,j]);
     end;
   end;
 Procedure ObmenStolbcov(k,l:Integer);
 var b:Array [1..4] of Integer;
     i:Integer;
 begin
   For i:=1 to 4 do
    begin
      b[i]:=mass[i,k];
      mass[i,k]:=mass[i,l];
      mass[i,l]:=b[i];
    end;
 end;
 Procedure Vozrastanie(var a:TMass);
 var i,j,min,N:Integer;
 begin
  For i:=1 to 5 do
  begin
   min:=a[1,i];
   N:=i;
   For j:=i+1 to 5 do
     if a[1,j]<min then
        begin
          min:=a[1,j];
          N:=j;
        end;
    If i<>N then ObmenStolbcov(i,N);
   end;
 end;
 Procedure Vivod(a:TMass);
 var i,j:Integer;
 begin
   For i:=1 to 4 do
   For j:=1 to 5 do
     Writeln('a[',i,',',j,']=',a[i,j]);
 end;
 begin
  ClrScr;
  Vvod(mass);
  Vozrastanie(mass);
  Vivod(mass);
  Readkey;
 end.