Получить количество отрицательных элементов массива и произведение элементов, принадлежащих отрезку [с,б]

uses crt;
var
   a:array[1..1000]of real;
   i,n,c,d:integer;
   sum:real;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   for i:=1 to n do
    begin
       a[i]:=random*40-20;
       write(a[i]:2:2,'  ');
    end;
   writeln;
   write('c=');
   read(c);
   write('d=');
   read(d);
   sum:=0;
   if c<d then
    begin
       for i:=1 to n do
        if (a[i]>=c)and(a[i]<=d) then sum:=sum+a[i];
       writeln('summa elementov iz [',c,',',d,']=',sum:2:2);
    end
   else writeln('nevernyi otrezok [',c,',',d,']');
   readkey;
end.

uses crt;
var
   a:array[1..1000]of real;
   i,n,c,d,kol:integer;
   pr:real;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   for i:=1 to n do
    begin
       a[i]:=random*40-20;
       write(a[i]:2:2,'  ');
    end;
   writeln;
   write('c=');
   read(c);
   write('d=');
   read(d);
   pr:=1;
   kol:=0;
   if c<d then
    begin
       for i:=1 to n do
        if (a[i]>=c)and(a[i]<=d) then
         begin
            pr:=pr*a[i];
            kol:=kol+1;
         end;
       writeln('kol-vo elementov iz [',c,',',d,']=',kol);
       writeln('proizvedenie elementov iz [',c,',',d,']=',pr:2:2);
    end
   else writeln('nevernyi otrezok [',c,',',d,']');
   readkey;
end.

uses CRT;
const n = 10;
      c = 2;
      b = 12;
var A1 : array[1..n] of real;
    A2 : array[1..2] of real;
    i, s : byte;
    p : real;
 
{ввод массивов}
Procedure inputArray(Arr : byte);
Begin
    if Arr = 1 then Begin
    Randomize;
    for i := 1 to n do
       A1[i] := Random(100)-50
    End;
    if Arr = 2 then Begin
       A2[1]:=c; A2[2]:=b;
    End
End;
{вывод массивов}
Procedure output(Arr : byte);
Begin
    if Arr = 1 then
       for i := 1 to n do write(A1[i]:8:2);
    if Arr = 2 then begin
       write('interval [c,b]: ');
       for i:= 1 to 2 do write(A2[i]:6:2)
       end;
    writeln
End;
{расчет количества отрицательных}
Function getKolNeg : Byte;
Var a : byte;
Begin
    a := 0;
    for i := 1 to n do
       if A1[i] < 0 then a := a+1;
    getKolNeg := a;
End;
{рачет произведения чисел из диапазона}
Function getProductInInterval : Real;
Var z : real;
Begin
     z := 1;
     for i := 1 to n do
        if (A1[i]>=A2[1]) and (A1[i]<=A2[2]) then
           z := z * A1[i];
     getProductInInterval := z;
End;
 
 
 {osnovnaya programma}
BEGIN
     s:=0;
     p:=0;
     ClrScr;
     inputArray(1); 
     inputArray(2);
     output(1);
     output(2);
     s:=getKolNeg;
     p:=getProductInInterval;
     writeln('кол-во отрицательных: ', s);
     writeln('произведение чисел диапазона [', A2[1], ',', A2[2], ']: =', p);
     Repeat Until Keypressed
END.