язык паскаля. Найти среднее значение всех положительных чисел из 130 заданных чисел

Var i:Integer;s:real;

A:array[1..130]of integer;

Begin

S:=0;

For i:=1 to 130 do begin

A[i]:=random(100);

S:=s+A[i];

End;

S:=s/130;

Write(s);

End.