Создать массив из 10 целых чисел принадлежащих промежутку -50 до 50. посчитать сумму положительных и количество отрицательных элементов массива

Var
   i,s,k:integer;
   a:array[1..10]of integer;
begin
for i:=1 to 10 do
  begin
  a[i]:=random(-50,50);
  write(a[i],' ');
  if a[i]>0 then s:=s+a[i];
  if a[i]<0 then k:=k+1;
  end;
writeln;
writeln ('Сумма положительных: ',s);
writeln ('Количество отрицательных: ',k);
end.