Срочно!!!Помогите, что не так, почему не работает данная программка?program massiv;const

Безотлагательно!!!
Помогите, что не так, почему не работает данная программка?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]lt;0 then inc(h);
write('количество отрицательных частей',h);
end.