Подсчитать произведение четных элементов одномерного массива вещественных чисел, стоящих на нечетных местах

program Project1;
 
const
  maxelem = 20;
 
type
  TArr1float = array [1..maxelem] of real;
 
 
procedure RandInArr(var arr: TArr1float; nn: integer; left, right: integer);
{Процедура для заполнения одномерного массива случайными числами}
var
  i: longint;
begin
  for i:= 1 to nn do
      arr[i]:= left + random(right - left + 1);
end;
 
 
procedure InfOutArr(arr: TArr1float; nn: integer);
{Процедура для вывода одномерного вещественного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to nn do
    write(' ',arr[i]:6:1);
  Writeln;
end;
 
function MultOddElement(arr: TArr1float; nn: integer): real;
{Функция для вычисления произведения четных элементов, стоящих на нечетных местах.
 Нумерация элементов начинается с единицы!}
var
  i: integer;
begin
  MultOddElement:= 1;
  i:= 1;
  while i <= nn do
    begin
      if trunc(arr[i]) mod 2 = 0 then
        MultOddElement:= MultOddElement*arr[i];
      i:= i + 2;
    end;
end;
 
 
var
  a: TArr1float; { Переменная для хранения массивов}
  n: integer; { Переменная для хранения значения количества элементов}
 
begin
  Randomize;
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  RandInArr(a,n,-80,20);             { Заполнение массива случайными числами}
  Writeln('Исходный массив А: ');
  InfOutArr(a,n);                    { Вывод массива в консоль}
  Writeln('Произведение четных элементов массива А: ', MultOddElement(a,n):0:2);
  Readln;
end.

program Project1;
 
const
  maxelem = 20;
 
type
  TArr1float = array [1..maxelem] of real;
 
 
procedure RandInArr(var arr: TArr1float; nn: integer; left, right: integer);
{Процедура для заполнения одномерного массива случайными числами}
var
  i: longint;
begin
  for i := 1 to nn do
    arr[i] := left + random(right - left + 1);
end;
 
 
procedure InfOutArr(arr: TArr1float; nn: integer);
{Процедура для вывода одномерного вещественного массива в консоль}
var
  i: integer;
begin
  for i := 1 to nn do
    write(' ', arr[i]:6:1);
  Writeln;
end;
 
function MultOddElement(arr: TArr1float; nn: integer; var p: real): boolean;
{Функция для вычисления произведения четных элементов, стоящих на нечетных местах.
 Нумерация элементов начинается с единицы!}
var
  k, i: integer;
begin
  p := 1;
  i := 1;
  k := 0;
  while i <= nn do
  begin
    if trunc(arr[i]) mod 2 = 0 then
    begin
      p := p * arr[i];
      inc(k);
    end;
    i := i + 2;
  end;
  if k <> 0 then
    MultOddElement := true
  else
    MultOddElement := false;
end;
 
 
var
  a: TArr1float; { Переменная для хранения массивов}
  n: integer;{ Переменная для хранения значения количества элементов}
  q: real;
 
begin
  Randomize;
  write('Введите значение количества элементов (не более ', maxelem, '): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  RandInArr(a, n, -80, 20);             { Заполнение массива случайными числами}
  Writeln('Исходный массив А: ');
  InfOutArr(a, n);                    { Вывод массива в консоль}
  if MultOddElement(a, n, q) then
    Writeln('Произведение четных элементов массива А: ', q:0:2)
  else
    Writeln('Нет четных элементов.');
  Readln;
end.