Дан одномерный массив с действительными числами. найти количество отрицательных элементов. нужно написать программу в delphi, pascal

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