Дан одномерный целый массив на 10 элементов. Посчитать сумму отрицательных и положительных чисел

Uses crt;

var mas: array [1 ... 10] of integer;

x, sum1, sum2: integer;

begin

sum1:=0;

sum2:=0;

for x:=1 to 10 do begin

mas[x]:=random (21) - 10;

write (mas[x]:4) ;

if mas[x]>0 then sum1:=sum1+mas[x];

if mas[x]<0 then sum2:=sum2+mas[x];

end;

writeln;

writeln ('Сумма отрицательных чисел: ', sum2) ;

writeln ('Сумма положительных чисел: ', sum1) ;

end.