Дан одномерный массив из 1000 элементов, состоящий из случайных целых чисел в диапазоне от -5 до 8. найти сумму элементов участка массива, начиная с первого положительного и кончая вторым положительным элементом.

Как то так:
var  a: array[1..1000] of integer; 
b: array [1..2] of integer; 
i, j, sum: integer;
begin 
 for i := 1 to 1000 do    
a[i] := random(13) - 5; 
 j := 1; 
 for i := 1 to 1000 do   begin   
if j = 3 then break;   
if a[i] > 0 then begin b[j] := i;inc(j); end; 
end; 
 for i := b[1] to b[2] do    sum := sum + a[i]; 
writeln(sum);
end.