В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Произведение положительных элементов массива

Uses Crt;
const
N=10;
var
a: array [1..N] of integer;
s,min,i,max,j:integer;
begin
s:=0;
for i:=1 to N do begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
for i:=1 to N do begin
if a[i]>0 then 
s:=s+a[i];
end;
writeln;
writeln('summa polosit el=',s);
s:=0;
min:=a[1];
for i:=2 to N do begin
if a[i]<min then begin
min:=a[i];
end;
end;
writeln('min=',min);
s:=0;
writeln('summ el do min=');
for i:=1 to N do begin
if a[i]=min then begin
s:=s+0;
end;
s:=s+a[i];
end;
write(s);
writeln;
writeln('setnie mesta:');
for i:=1 to N do begin
if i mod 2=0 then
write(a[i],' ');
end;
writeln;
writeln('nesetnie mesta:');
for i:=1 to N do begin
if i mod 2 <> 0 then
write(a[i],' ');
end;
end.

program SortMass;
 
var
  a: array[1..100] of real; // Переменная для массива.
  n: integer;    //  Переменная, хранящая заданное число элементов массива.
  i,j : integer;  // Промежуточные переменные для организации циклов.
  min : real;    // Переменная для хранения значения минимального элемента массива.
  indexmin: integer;  // Переменная для хранения индекса элемента с минимальным значением.
  pow: double:    //  Переменная для хранения произведения элементов.
  sum: double;   //  Переменная для хранения значения суммы элементов
  buf: real;    //  Промежуточная переменная для сортировки массива.
begin
 
  randomize;
  writeln('Введите максимальное число элементов массива: ');
  readln(n);
  for i:=1 to n do
   begin
   a[i]:= (random(1000)-500)/10;  // Заполняем массив случайными числами в дипазоне от -49.9 до 49.9
   write(a[i]:0:1,'  ');
   if i mod 10 = 0 then Writeln;
   end;
   pow:=1;
   for i:=1 to n do     //  Ищем положительные элементы массива.
    if a[i] > 0 then
     pow:=pow*a[i];    // Вычисляем произведение найденных элементов массива.
 writeln;
 writeln('Произведение положительных элементов массива: ', pow:0:2);
 
 min:=a[1];
 for i:=1 to n do     //  Ищем минимальный элемент массива.
  if a[i] < min then
   begin
   min:= a[i];
   indexmin:=i;
   end;
 writeln;
 writeln('Минимальный элемент массива равен ',min:0:2,' и является ',indexmin,'-ым элементом массива');
 sum:=0;
 for i:=1 to indexmin do
  sum:=sum+a[i];     //  Вычисляем сумму элементов, стоящих до минимального элемента.
 writeln;
 writeln('Сумма элементов массива, расположенных до ',indexmin,'-ого элемента равна: ', sum:0:2);
 
 for i:=1 to n-1 do    // Сортируем  элементы с четными индексами.
    for j:=i+1 to n do
      if not odd(i) and not odd(j) and (a[i]>a[j]) then
        begin
          buf:=a[i];
          a[i]:=a[j];
          a[j]:=buf;
        end;
 writeln;
 writeln('Массив с отсортированными по возрастанию  элементами с четными индексами:');
 for i:=1 to n do
   begin
   write(a[i]:0:1,'  ');
   if i mod 10 = 0 then Writeln;
   end;
 
 for i:=1 to n-1 do    //  Сортируем элементы с нечетными индексами.
    for j:=i+1 to n do
      if odd(i) and odd(j) and (a[i]>a[j]) then
        begin
          buf:=a[i];
          a[i]:=a[j];
          a[j]:=buf;
        end;
 writeln;
 writeln('Массив с отсортированными по возрастанию элементами с нечетными индексами:');
 for i:=1 to n do
   begin
   write(a[i]:0:1,'  ');
   if i mod 10 = 0 then Writeln;
   end;
 
 
 
 
 
 readln;
end.