Посчитать число положительных и отрицательных в массиве

Задача. Ввести массив (последовательность) из n чисел (n<=100). Подсчитать количество положительных и отрицательных чисел, их суммы и средние значения.
Решение.

Program Count_sred;
Const
Nmax = 100;
Var
X : Array[1..Nmax] Of Real;
N, I, Ko, Kp : Integer;
So, Sp, Sro, Srp : Real;
Begin
Writeln('Введите количество чисел'); Readln(n);
Writeln('Вводите элементы массива');
For i:=1 To n Do Read(X[i]);
Ko:=0; Kp:=0; So:=0; Sp:=0;
For i:=1 To N Do
If X[i]>0 Then
Begin
Kp:=Kp+1;
Sp:=Sp+X[i]
End
Else
If X[i]>0 Then
Begin
Ko:=Ko+1;
So:=So+ X[i]
End;
If Ko<>0 Then
Begin
Sro:= So/Ko;
Writeln('Количество отрицательных чисел = ', Ko);
Writeln('Сумма отрицательных чисел = ', So:8:2);
Writeln('Среднее отрицательных чисел = ',Sro:8:2);
End
Else
 Writeln('В массиве нет отрицательных чисел.');
If Kp<>0 Then
 Begin
 Srp:= Sp/Kp;
 Writeln('Количество положительных чисел = ', Kp);
 Writeln('Сумма положительных чисел = ', Sp:8:2);
 Writeln('Среднее положительных чисел = ', Srp:8:2);
 End
Else
 Writeln('В массиве нет положительных чисел.');
End.