Расcтавить по возрастанию элементы 2 строки в двумерном массиве z[5,6] .язык паскаль

Var

 a: array [1..6, 1..5] of integer;
 i, j,n : longint;

begin
  for i:= 1 to 6 do
     for j:= 1 to 5 do
        read (a[i, j]);
     Writeln();
     for j:= 1 to 5 do
        for i:= 1 to 5 do
           if a[2, i] > a[2, j] then swap(a[2, i], a[2, j]);
     for i:= 1 to 6 do begin
         for j:= 1 to 5 do
            write(a[i, j], ' ');
         Writeln();
         end;
end.