сумма и произведение элементов в массиве

Дано N вещественных чисел. a1,a2....an. Вывести сумму и произведение чисел из данного набора. Использовать структуру цикл с постусловием.

program one;

const
     N = 5;

var
   A: array [1..N] of integer;
   i: integer;
   sum: integer;
   mul: integer;

begin
   writeln('инициализация массива случайными числами');
   for i:=1 to N do begin
       A[i]:=random(9)+1; {числа от 1 до 9, т.е. неравные 0, иначе произведение будет равно 0}
       writeln(A[i]);
   end;
   
   {начальное значение суммы}
   sum:=0;
   {начальное значение произведения}
   mul:=1;
   {начальный номер элемента}
   i:=1;
   
   repeat
       sum:=sum+A[i];
       mul:=mul*A[i];
       i:=i+1;
   until i > N;
   
   writeln('sum=', sum);
   writeln('mul=', mul);

end.