Преобразовать в код - Turbo Pascal

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

Данный алгоритм преобразовать в код

                    Листинг программы
                
 
                        
                          
                    
цел таб A[1:5, 1:5] 
нц для i от 1 до 5 
 нц для j от 1 до 5 
 если i >= j то 
 A[i, j] := i - j 
 иначе A[i, j] := j - i 
 все 
 кц
кц

Заранее благодарен...

Решение задачи: «Преобразовать в код»

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

var A:array[1..5, 1..5] of byte;
    i,j:byte;
begin
for i:=1 to 5  do
 begin
  for j:=1 to 5 do
   begin
    if i>=j then A[i,j]:=i-j
    else A[i,j]:=j-i;
    write(A[i,j]:3);
   end;
  writeln;
 end;
end.

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

В данном коде происходит преобразование массива A в соответствии с заданными условиями.

Переменная A объявляется как массив типа byte размером 5x5.
Переменные i и j объявляются как байтовые значения.
В цикле for i:=1 до 5 происходит итерация по элементам массива A.
Внутри цикла for j:=1 до 5 происходит итерация по элементам массива A.
Внутри вложенного цикла проверяется условие i>=j. Если это условие истинно, то в соответствующий элемент массива A записывается значение i-j. Если условие ложно, то в соответствующий элемент массива A записывается значение j-i.
После завершения вложенного цикла выводится значение элемента массива A[i,j] с помощью функции write(A[i,j]:3).
По завершении внешнего цикла выводится символ новой строки с помощью функции writeln.
Код завершается без использования функции return.