Написать программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает отдельно все положительные элементы этого массива, отдельно отрицательные элементы и выдаёт полученные результаты — Pascal(Паскаль)

var a:array[1..10]of integer;
    i,p,o:integer;
begin
randomize;
p:=0; o:=0;
for i:=1 to 10 do
begin
  a[i]:=random(11)-5;
  if a[i]>0 then p:=p+a[i] else
  if a[i]<0 then o:=o+a[i];
  write(a[i]:3);
end;
writeln;
writeln('Сумма положительных элементов: ',p,#13#10,'Отрицательных: ',o);
readln;
end.