Рас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.