Заполнить матрицу ЛП, от левого верхнего угла по диагонали: вправо - вверх

Program massiv;
uses crt;
var
n,m,i,j,k:integer;
a:array[-100..1000,-100..1000] of integer;
 
begin
 
  write('ââåäèòå êîë-âî ñòðîê='); readln (n);
  write('ââåäèòå êîë-âî ñòîëáöîâ=');  readln (m);
    for  i :=1 to n do begin
        for j := 1 to m do begin
        if j <= i then
            a[i -j,j] := k;
            k:=k+1;
            end;
            end;
    for  j := 1 to m do begin
        for  i := 1 to n do
         if i <= 8 - j then begin
            a[n - i,j + i] := k;
       k:=k+1;
       end;end;
       for  i :=1 to n do begin
        for j := 1 to m do begin
        write (a[i,j]:4);
        end;
        writeln;
        end;
        end.

a:array[-100..1000,-100..1000] of integer;

uses crt;
var n,i,j,l,k:integer;
    a:array[1..20,1..20]of integer;
begin
write('n=');read(n);
k:=0;
For l:=1 to 2*n-1 do{количество диагоналей, параллелных побочной}
 begin
  if l>n then{выше диагонали}
   begin
     for i:=n downto l-n+1 do
      begin
       k:=k+1;
       a[i,l-i+1]:=k;
      end
   end
  else if l<=n then{ниже диагонали и на ней}
   begin
    for i:=l downto 1 do
     begin
      k:=k+1;
      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]:3);
  writeln;
 end;
end.

a:array[-100..1000,-100..1000] of integer;