массив К4 содержит...

массив К4 содержит 10 элементов вещественного типа-положительных,отрицательных и равных 0.сосчитать количество отрицательных элементов массива и вывестисумму их модулей

 

var
  K4 : array [1..10] of real;
  sum : real;
  i, count : integer;
begin
  for i := 1 to 10 do read (K4);
  for i := 1 to 10 do
   if k4 < 0 then
    begin
      sum := sum - k4; //Т.к. нужен модуль пишем минус
      count:=count+1; 
    end;
  writeln ('Сумма модулей', count, 'отрицательных чисел равна ', sum);
end.