Заполните двумерный массив, замените отрицательные элементы нулями - Pascal ABC

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

Две задачи: 5. Заполните двумерный массив, замените отрицательные элементы нулями. 7. Используя процедуру вычисления степени числа, вычислить значение выражения: y=a1*x4+a2*x3+a3*x2+a4*x+a5 (вероятно числа это степени, но я всё же написал я именно так как написано в распечатке с заданиями).

Решение задачи: «Заполните двумерный массив, замените отрицательные элементы нулями»

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

uses
 crt;
 
 var
 A : array [1..5,1..5] of Integer;
 i,j,n : integer;
  begin
  
 For i := 1 to 5 do
  for j := 1 to 5 do
   begin
  Randomize;
  n := Random(2);   // ГЁГ±ГЇГ®Г«ГјГ§ГіГҐГ¬ Г¤Г®ГЇГ®Г«Г*ГЁГІГҐГ«ГјГ*ГіГѕ ГЇГҐГ°ГҐГ¬ГҐГ*Г*ГіГѕ ГІ.ГЄ. Random(x) Г*ГҐ Г°Г*ГЎГ®ГІГ*ГҐГІ Г± Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Г¬ГЁ Г·ГЁГ±Г«Г*Г¬ГЁ  (n Г¬Г®Г¦ГҐГІ ГЇГ°ГЁГ*ГїГІГј Г§Г*Г*Г·ГҐГ*ГЁГҐ 0 ГЁГ«ГЁ 1 )
   if n=0 then        // ГҐГ±Г«ГЁ n = 0
  A[i,j] := Random(20) else // ГЁГ*Г*Г·ГҐ
   A[i,j] := Random(20) *(-1);
  end;         {Г‡Г*ГЇГ®Г«Г*ГїГҐГ¬ ГЊГ*Г±Г±ГЁГў ГђГ*Г*Г¤Г®Г¬Г*Г»Г¬ГЁ Г·ГЁГ±Г«Г*Г¬ГЁ Г®ГІ -19 Г¤Г® 19 }
  
 For i := 1 to 5 do
  for j := 1 to 5 do
 if A[i,j] < 0 then
  A[i,j] := 0;
  
 
 end.

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

Создаётся двумерный массив A размером 5х5.
В цикле заполняются элементы массива случайными числами от 0 до 20.
Если случайно сгенерированное число равно 0, то элемент массива остается без изменений.
Если случайно сгенерированное число отрицательное, то элемент заменяется на 0.
Повторяется шаги 2-4 для каждой пары i и j.
В конце выполнения программы все отрицательные элементы массива заменены на 0.