вывести элементы выше главной диагонали :

[Rusl92]

Дан массив n*n, вывести элементы, которые выше главной диагонали в таком порядке:

5  6  7  8  9
0  4 14 15 10
0  0  3 13 11
0  0  0  2 12
0  0  0  0  1

то есть, если дана матрица

5 4 3 2
1 7 5 4
9 8 2 1
0 1 3 4

То ответ должен быть такой:
4 2 7 5 4 3 2 4 1 5

я написал прогу, но она плоховата
вы не могли бы подсказать хороший алгоритм решения?
заранее спасибо

вот моя "плохая" прога

const n=6;
var k,p,flag,i,j,z:integer;
    a:array[1..n,1..n]of integer;
begin
   randomize;
   for i:=1 to n do
    begin
     randomize;
     for j:=1 to n do
      a[i,j]:=random(5)+1;
    end;
   
   for i:=1 to n do
     begin
      for j:=1 to n do
       write(a[i,j],' ');
      writeln
     end;
   writeln;
   k:=2;p:=1;flag:=0;z:=2;
   while (flag<n) do
    begin
      i:=n-p+1;j:=n;
      while p<=i do
       begin
        write(a[i,j],' ');
        dec(j);
        dec(i);
       end;

      inc(flag);
      if flag<n
       then
       begin
      i:=p;
      for j:=z to n-p+1 do
       write(a[i,j],' ');
      inc(flag);
      if flag<n
       then
        begin

      j:=n;
      for i:=k to n-p-1 do
        write(a[i,j],' ');
      inc(flag);

      inc(k);
      inc(p);
      z:=z+2;
      end;
      end;
    end;
    
end.