Вычислить сумму всех положительных чисел из 20 вводимых случайным образом. randomize)) for

СLS
RANDOMIZE TIMER
FOR i = 1 TO 20
n=INT(RND*21)-10
IF n>0 THEN s=s+n
NEXT i
PRINT "сумма равна"; s
END

Program summapolojitelnih;
uses crt;
const n=20;
type x=array[1..n] of integer;
var a:x; i,sum:integer;
begin
for i:=1 to n do
a[i]:=random(100)-50;
for i:=1 to n do
if (a[i] > 0) then sum:=sum+a[i];
write(sum);
end.