ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕ ПОЖАЛУЙСТА

как в двумерном массиве вывести числа таким образом?
1 2 3 4 5 6 7 8 9 10
0 1 2 3 4 5 6 7 8 9
0 0 1 2 3 4 5 6 7 8
0 0 0 1 2 3 4 5 6 7
0 0 0 0 1 2 3 4 5 6
0 0 0 0 0 1 2 3 4 5
0 0 0 0 0 0 1 2 3 4
0 0 0 0 0 0 0 1 2 3
0 0 0 0 0 0 0 0 1 2
0 0 0 0 0 0 0 0 0 1

спасибо большое, что означает - k += 1 ?

сокращение от k:=k+1;

спасибо

var  a: array[1..10, 1..10] of integer;  i, j, k: integer;begin  k := 1;  for i := 1 to 10 do   begin    for j := 1 to 10 do     begin      if(j >= i) then begin        a[i, j] := k;        k += 1;      end      else a[i, j] := 0;      write(a[i, j]:3);    end;    k := 1;    writeln();  end;end.