Сортировка матрицы естественным слиянием

const
  nmax = 5;
 
type
  Matrix = Array[1..nmax, 1..nmax] Of Integer;
 
var
  a: Matrix;
  i, j, n, k: Integer;
  d: Integer;
  Temp: Array[1..nmax * nmax] Of Integer;
 
begin
  n := 1;
  for i := 1 To nmax Do
  begin
    for j := 1 To nmax Do
    begin
      if j < i then
      begin
        a[i, j] := -(nmax * nmax) div 2 + random(nmax * nmax);
        temp[n] := a[i, j];
        inc(n);
      end
      else
        a[i, j] := 0;
      write(a[i, j]:5);
    end;  
    writeln;
  end;
  writeln;
  k := n - 1;
  {сортировка положительных обменом}
  for i := 1 to k - 1 do{элемент от первого до предпоследнего}
    for j := i + 1 to k do{все элементы впереди его}
      {если оба положительные и второе меньше}
      if(temp[i] > 0) and (temp[j] > 0) and (temp[i] < temp[j]) then
      begin
        d := temp[i];
        temp[i] := temp[j];{обмениваем их через буфер местами}
        temp[j] := d;
      end;
  n := 1;
  for i := 1 To nmax Do
  begin
    for j := 1 To nmax Do
    begin
      if j < i then
      begin
        a[i, j] := temp[n];
        inc(n);
      end
      else
        a[i, j] := 0;
      write(a[i, j]:5);
    end;  
    writeln;
  end;
end.