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

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