Задача на Паскаль

[Stilet]

Три раза запускал компилятор

Три раза дед звал рыбку. И три раза океан обливал его пеной...
А с бубном не пробовал?
А пошевелить мозгами? Чему равна р на начальной стадии? И чему равно произведение если первая цифра равна нулю?
А теперь подумай хорошенечко что требуется дописать в код (оператор из 5-ти символов) чтоб произведение считалось нормательно.

[cabss]

var  a :array[1..10] of integer; i,p :integer;firstminus:boolean;
begin
    randomize;
    firstminus:=true;
    p:=1;
    for i :=1 to 10 do begin
     a[i] :=-2+random(20);
     if firstminus and (a[i]>0) then p :=p*a[i] else firstminus:=false;
    end;
    writeln('Произведение = ',p);
    readln
end.