Дан массив размерностью NxN. Вывести элементы в указанном порядке- Pascal(Паскаль)

Ввод:
n=4
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
Вывод:
13 14 9 5 10 15 16 11 6 1 2 7 12 8 3 4

uses crt;

var
  a: array [1 .. 20, 1 .. 20] of integer;
  n, i, j, c, sum, k, l, p: integer;

begin
  clrscr;
  write('Размер матрицы до 20 n= ');
  readln(n);
  randomize;
  Writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := (i - 1) * n + j;
      write(a[i, j]:4);
    end;
    Writeln;
  end;
  Writeln('Вывод элементов зигзагом:');
  for l := 1 to 2 * n - 1 do
  begin
    if l <= n then
    begin
      for i := n downto n - l + 1 do
        write(a[i, i - n + l], ' ');
    end
    else if l > n then
    begin
      for i := 1 to 2 * n - l do
        write(a[i, i + l - n], ' ');
    end;
  end;
  readln

end.