Задача на матрицы

[Integral]

Дана квадратная матрица nxn, вывести на экран диагонали, параллельные главной, угловые элементы считать одноместными диагоналями.
пример:
1 2 3
4 5 6
7 8 9

необходимо получить на экране:
3
2 6
1 5 9
4 8
7
P.S. сделать надо для матрицы размеров nxn

[puporev]

Что-то интересно стало и решил. Наверное можно лучше, но работает.

program matr;
uses crt;
var n,i,j,k:integer;a:array[1..100,1..100] of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=10*i+j;   //можно заполнить и вручную и random
        write(a[i,j]:3);  //так нагляднее
      end;
  writeln;
  end;
readln;
for k:=1 to n do           //выводим первую половину от a[1,n]
  begin                    //по главную диагональ
    for i:=1 to k do
      begin
        for j:=n-k+1 to n do
          if i=j-n+k then
             begin
               write(a[i,j]:3);
             end;
      end;
    writeln;
  end;
for k:=n-1 downto 1 do     // выводим ниже главной диагонали
  begin                    //можно две части объединить,  
    for i:=n-k+1 to n do   //но это еще немного думать надо
      begin
        for j:=1 to k do
          if i=j+n-k then
            begin
              write(a[i,j]:3);
            end;
      end;
    writeln;
  end;
readln;
end.