[MushGUN]

вот задание:
сформировать массив из 30 элементов случайный образ от -10 до 10
найти сумму положительных чисел
вот моя прога но на паскале

Код:

program p1;
var i,b,c,e,f:integer;
a:array [1..30] of integer;
begin
randomize;
for b:=-10 to 10 do
a[i]:=random(b);
begin
if a[i]>0 then
c:=c+a[i];
end;
writeln(c);
end.

выход за границы диапазона изменения индекса 1..30 (Program1.pas, строка 7)
как справиться с диапозоном если моно напишите прогу или разъясните
без разницы что на Delphi что на Pascal
но желательно на Paskal