паскаль 7.0 .(синий экран).массивы

[qasw]

ребят !!! если паскаль на синем экране версия 7.0
если знакомо я надеюсь что конечно знакомо можете помочь с решением задачи


подсчитать число положительных, отрицательных и нулевых компонент вещественного массива из 10 элементов. Если отрицательных элементов окажется больше , то поменять знаки всех элементов массива из 10 элементов. Если отрицательных элементов окажется больше, то поменять знаки элементов массива на противоположные.

[Манжосов Денис :)]

program ameba;
var
  a,b,c: integer;
  x: array [1..10] of real;
  i: integer;
begin
a := 0; b := 0; c := 0;
  for i := 1 to 10 do
   ReadLn(x[i]);
  for i := 1 to 10 do
   if x[i] > 0 then Inc(a)
     else if x[i] = 0 then Inc(b)
       else if x[i] < 0 then Inc(c);
  if c > a then
   for i := 1 to 10 do
     x[i] := -x[i];
  WriteLn(a, ' ', b, ' ', c);
ReadLn;
end.

[qasw]

хе ...не совсем то ...но все равно спасибо )))))))

Задача исправлена