uses crt;

var a : array [1 .. 2500] of integer;

b : array [1 .. 50, 1 .. 50] of integer;

i, n, j, h, l, o : integer;

begin

clrscr;

write('Nhap so hang va cot mang 2 chieu : ');

readln(l, o); n := l * o;

write('Nhap ', n ,' phan tu mang 1 chieu : ');

for i := 1 to n do read(a[i]);

for j := n downto 2 do

for i := 1 to j - 1 do

if a[i] > a[i + 1] then begin

a[i] := a[i + 1] + a[i];

a[i + 1] := a[i] - a[i + 1];

a[i] := a[i] - a[i + 1]; end;

h := 1;

for j := 1 to o do

for i := 1 to l do

begin b[i, j] := a[h];

h := h + 1; end;

for i := 1 to l do begin

for j := 1 to o do write(b[i, j] : 4 );

writeln; end;

readln

end.