Помогите решить задачу в Pascal

Дан массив целых чисел, состоящий из 30 элементов. Заполнить его датчиком случайных чисел. Найти сумму отрицательных элементов.

var n,sum:integer;    arr: array [0..30] of integer;begin  sum:=0;  randomize;   for n:=0 to 29 do begin  arr[n]:=random(1000)-500;  if (arr[n]<0) then sum:=sum+arr[n];  end;  writeln('сумма отрицательных чисел = ',sum);end.