массив одномерный a n элементов подсчитать произведение отрицательных элементов этого массива

РЕШИТЕ ПОЖАЛУЙСТА, ВОПРОС ЖИЗНИ И СМЕРТИ

Turbo PascalUSES CRT;VAR A:array[1..100] of integer;            i,n,summa:integer;BEGINCLRSCR;Randomize;  {Проверяем на размер массива, чтобы не превышал 100}   Repeat         Writeln('Введите размер массива до 100');         Readln(n);   Until n<=100;{Заполняем массив случайными числами от -50 до 100}   For i:=1 to n do         begin               A[i]:=-50+Random(100);               Write(A[i],'  ');         end;   summa:=0;{Находим отрицательные элементы массива и складываем}   For i:=1 to n do         if A[i]<0 then summa:=summa+A[i];   Writeln;   Writeln('Сумма отрицательных элементов массива  = ',summa);READLN;END.