Вывод двумерного массива на экран. (Delphi)

[Refon_S]

Здравствуйте. Хотелось бы попросить помощи у здешних "обитателей" в одной задаче:

Решить поставленную задачу, используя средства управления вводом/выводом. Заполнить массив А(n,n) квадратами первых n^2 натуральных чисел. Вывести его на экран в виде двух частей, «разрезав» по побочной диагонали. Части расположить рядом. Побочная диагональ должна присутствовать в обеих частях.

Основную задачу я выполнил, заполнив массив (для простоты 5x5) квадратами первых 25 чисел. Но почему-то для меня осталось загадкой то, как вывести обе части рядом. И как? Рядом в смысле справа или снизу? Вывести первую часть у меня получилось, но на выводе второй почему-то получается не то, чего я ожидаю. Что я делаю не так, подскажите пожалуйста...
Код привожу:

program matrix;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i,j,n,nj,ni: integer;
  m: single;
  A:array [1..5, 1..5] of single;
begin
  write('Enter N:'); //ввод N, пока должно быть 5
  readln(n);
  m:=1;
  for i := 1 to n do //создание матрицы, содержащей квадраты N^2 первых чисел
  begin
  for j := 1 to n do
    begin
      m:=sqr(m);
      A[i,j]:=m;
      m:=sqrt(m)+1;
    end;
  end;
  nj:=n; //матрица создана, выводим всё, что слева побочной диагонали
  for i := 1 to n do
  begin
    for j := 1 to nj do write(A[i,j]:4:0, ' ');
    writeln(' ');
    nj:=nj-1;
  end;
  ni:=n;
  for i := 1 to n do
  begin
    for j := ni to 1 do write (A[i,j]:4:0, ' ');
    writeln(' ');
    ni:=ni-1;
  end;
  readln;
end.

Скриншот результата в прикреплении.

[Refon_S]

До решения я так и не додумался... Тема всё ещё актуальна, помогите пожалуйста.

[Mad_Cat]

For i:=1 to n do
    begin
      for j := 1 to n  do
        if j=(n-i)+1 then write(A[i,j]:4:0,'     ',A[i,j]:4:0 )
        else write(A[i,j]:4:0) ;
      writeln;
    end;

[Refon_S]

Премного благодарен Mad_Cat за помощь. Правда, немного обидно, раз всё оказалось настолько просто. Ждите завтра небольшую благодарность на ЯД.