Дан одномерный целый массив на 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.