Нахождение произведения и замена элементов >5 на 1 в массиве - Pascal ABC - Ответ 13892985

program Project1;
const
  maxelem = 30;
type
  TArr = array [1..maxelem] of integer;
 
procedure RandomInfInArray (var arr: TArr; leftval,rightval: integer);
// Процедура для заполнения одномерного массива случайными числами.
var
   i: integer;
begin
for i:= low(arr) to high(arr) do
  arr[i]:= leftval + random(rightval - leftval + 1) ;
 
end;
 
procedure InfOutArray (arr: TArr);
// Процедура для вывода элементов массива на экран.
var
   i: integer;
begin
  for i:= low(arr) to high(arr) do
    begin
      Write(arr[i]:4);
      if i mod 10 = 0 then
        Writeln;
    end;
end;
 
procedure PowAndChanInArrey(var arr: TArr; var p: integer);
// Процедура для вычисления произведения элементов, которые больше 5
// и замена этих элементов на 1.
var
   i: integer;
begin
  p:=1;
  for i:= low(arr) to high(arr) do
    begin
      if arr[i] > 5 then
        begin
          p:= p*arr[i];
          arr[i]:= 1;
        end;
    end;
end;
 
var
   a: TArr; // Переменная для хранения массива.
   pow: integer;  // Переменная для хранения значения произведения.
begin
  Randomize;
  RandomInfInArray(a,0,10);
  Writeln('Исходный массив:');
  InfOutArray(a);
  PowAndChanInArrey(a,pow);
  Writeln('Произведение элементов массива больше 5: ', pow);
  Writeln('Измененный массив:');
  InfOutArray(a);
  Readln;
end.