Срочно!!!
Помогите, что не так, почему не работает данная программа?program massiv;
const n=20;
var B: array [-20..n] of integer;
i,p,a,d,k,h:integer;
begin
{Ввод массива}
write('Введите интервал');
Readln(a,d);
Randomize;
For k:=1 to n do begin;
B[k]:=a+random (d-a+1);
write ('B[', k,']=', B[k]);
{вывод массива}
end;
For k:=1 to n do
Write (B[k]);
{произведение элементов}
p:=1;
For k:=1 to n do begin;
P:=p* B[k];
write ('произведение элементов');
end;
for i:=1 to n do read(B[k]);
readln;
h:=0;
for i:=1 to n do if B[k]<0 then inc(h);<br> write('количество отрицательных элементов',h);
end.