Заполнить двумерный массив следующим образом: 12 24 120 2 14 110 1 13 109

Var a:array[1..12,1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do
a[1,i]:=i*12;
for i:=2 to 12 do
  for j:=1 to 10 do
  a[i,j]:=a[i-1,j]-1;
for i:=1 to 12 do begin
  for j:=1 to 10 do
    write(a[i,j]:4);
  writeln;
end;
end.