Водномерном массиве состоящем из 40 элементов и принадлежащих интервалу [-11; 5] найти сумму всех положительных элементов и вывести её на экран

Var i,s: integer;
a: array [1..40] of integer;
begin
for i:=1 to 40 do
a[i] := random (17)-11;
writeln ('Массив ',a);
for i:=1 to 40 do
if a[i]>0 then s:=s+a[i];
writeln ('Сумма всех положительных элементов равна ',s)
end.