Двумерный массив объясните! - Pascal

Формулировка задачи:

Срочно нужно сдать задание преподу(( Данн массив 111 112 113 114 115 116 117 118 119 120 101 102 91 92 81 82 ... ... 1 2 И так далее, как написать функцию чтобы программа вычетала по 10? Всё что получилось у меня:

var a:array[1..12,1..10] of integer; 
i,j:integer; 
begin 
for i:=1 to 12 do 
for j:=1 to 10 do 
begin 
a[i,j]:=(j+121)-i-10; 
if j<10 then write (a[i,j],' ') else writeln(a[i,j]); 
end; 
end.

Заранее огромное спасибо!!!

Решение задачи: «Двумерный массив объясните!»

Листинг программы

var i, j: Integer;
begin
  for i:=11 downto 0 do begin
    for j:=1 to 10 do Write(i*10+j:4); WriteLn;
  end;
end.

Объяснение кода листинга программы

В данном коде на языке Pascal происходит следующее:

Объявляются две переменные типа Integer - i и j.
Запускается двойной цикл for, который выполняет следующие действия:
- Перебирает значения i от 11 до 0 (включительно).
- Перебирает значения j от 1 до 10 (включительно).
- Выводит значение переменной i10+j (1110+1 = 111, 10*10+2 = 202 и т.д.) на экран с помощью функции Write.
- Дополнительно выводит символ новой строки с помощью функции WriteLn.
После завершения циклов, программа завершается.