Заполнить двумерный массив числами от 1 до N*N по правилу

uses crt;
const m=20;
var a:array[1..m,1..m] of integer;
    n,i,j,k,l:integer;
begin
randomize;
repeat
write('Размер матрицы от 2 дo ',m,' n=');
readln(n);
until n in [2..m];
writeln('Матрица по условию:');
k:=0;
For l:=1 to 2*n-1 do{количество диагоналей, параллельных побочной}
 begin
  if l>n then{выше диагонали}
   begin
    if not odd(l) then
    for i:=l-n+1 to n do
     begin
      inc(k);
      a[i,l-i+1]:=k
     end
    else
    for i:=n downto l-n+1 do
     begin
      inc(k);
      a[i,l-i+1]:=k
     end
   end
  else if l<=n then{ниже диагонали и на ней}
   begin
    if not odd(l) then
    for i:=1 to l do
     begin
      inc(k);
      a[i,l-i+1]:=k
     end
    else
    for i:=l downto 1 do
     begin
      inc(k);
      a[i,l-i+1]:=k
     end
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.