{$r-}
TYPE
 T=ARRAY[1..1] of Integer;
VAR
 A:^T;
 i,j,k,m,N,dummy:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 GetMem(A, SizeOf(Integer)*N*N);

 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A^[N*(i-1)+j]:=Random(200)-100;
     Write(A^[N*(i-1)+j]:5);
    end;
   WriteLn;
  end;
 WriteLn;

 For k:=1 to N*N do
  For m:=1 to N*N-k do
   If A^[m+1]<A^[m] then
    begin
     dummy:=A^[m+1];
     A^[m+1]:=A^[m];
     A^[m]:=dummy;
    end;

 WriteLn('Ordered matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A^[N*(i-1)+j]:5);
   WriteLn;
  end;
 WriteLn;

 FreeMem(A, SizeOf(Integer)*N*N);

 ReadLn;
END.