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