Подсчитать количество отрицательных частей массива, состоящего из целых элементов.

program massiv;

uses crt;

type Mass = array of Integer;

var

n, i, x : integer;

mas : mass;

begin

WriteLn('Сколько значений нужно поместить в массив?');

readLn(n);

SetLength(mas, n);

for i := 0 to n-1 do

begin  

WriteLn('Введите ' + i + ' элемент в массив');

readln(mas[i]);

end;

for i := 0 to n-1 do

if(mas[i] lt; 0) then

x:= x +1;

WriteLn('Всего отрицательных частей = '+ x);

ReadLn();

end.