Помагите выполнить сор по икт

Информационная Модель - (англ. information model) - система упорядоченных по определенным правилам сигналов и знаков, генерируемых средствами отображения информации и несущих информацию об объекте управления (контроля) , внешней среде и самой системе управления

Основными классами И. м. являются: наглядные (картинные) модели-изображения (фотография, кино, телеизображение) , абстрактные знаковые модели (печатный текст, знаковое табло, формуляр) , графические модели (график, диаграмма, чертеж, блок-схема) и комбинированные модели (мнемосхема, карта) .

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3