Заполните массив следующим образом - Pascal

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

Нужно заполнить массив числами как показано ниже. 52222 05222 00522 00052 00005 Начало программы есть, подскажите, как дальше продолжить?

                    Листинг программы
                
 
                        
                          
                    
var A:  array [1..5,1..5] of integer;
                        i,j :integer;
begin
For i:= 1 to 5 do
For j:= 1 to 5 do A [i,j]:=2;
writeln ('массив');
for i:=1 to 5 do begin
for j:=1 to 5 do write (A[i,j] :3);
Writeln ;
end;
 
end.

Решение задачи: «Заполните массив следующим образом»

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

var A:  array [1..5,1..5] of integer;
                        i,j :integer;
begin
For i:= 1 to 5 do
 begin
  For j:= 1 to 5 do
   begin
    if j<i then A [i,j]:=0
    else if j>i then A[i,j]:=2
    else A[i,j]:=5;
    write(A[i,j]:2);
   end;
  writeln;
 end;
end.

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

В данном коде происходит заполнение двумерного массива A значениями 0, 2 или 5 в зависимости от значений переменных i и j. Переменные i и j оба равны 1, 2, 3, 4 или 5. Если значение переменной j меньше значения переменной i, то в соответствующую ячейку массива A записывается значение 0. Если значение переменной j больше значения переменной i, то в соответствующую ячейку массива A записывается значение 2. В остальных случаях (когда значения переменных i и j равны) в соответствующую ячейку массива A записывается значение 5. Затем выводится значение ячейки массива A, соответствующее текущим значениям переменных i и j. Каждая итерация цикла выполняется отдельно, сначала для переменной i, а затем для переменной j. Таким образом, данный код заполняет массив A значениями 0, 2 или 5 и выводит значения ячеек массива A в соответствии с текущими значениями переменных i и j.