Помогите пожалуйста! Дан одномерный массив с действительными числами. Найти количество отрицательных элементов. Нужно написать программу в Delphi, Pascal

В делфи и в паскале одно и то же.
Допустим, вы уже считали массив
a - массив (нумерация с 1), n - его длинна
for i := 1 to n do begin
  if a[i] < 0 then count := count + 1;
end;