Программа по информатике

Program asd;
USES crt;
Const n=100;
Var A:array[1..n] of integer;
i,kp,ko:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=-20+Random(40);
Write(A[i]:4);
end;
Writeln;
kp:=0;
ko:=0;
For i:=1 to n do 
begin 
 If A[i]>0 then kp:=kp+1;
 If A[i]<0 then ko:=ko+1; 
end; 
Writeln('Кол-во положительных элементов: ' ,kp); 
Writeln('Кол-во отрицательных элементов: ' ,ko);
END.

6, -4, 19, 19, -8, 18, -17, 7, 8, -6, -12, -9, -4, -5, -12, -10, 13, 19, -12, 20, 20, 11, -1, 3, 7, 14, 9, -8, -4, -8, -15, -3, 1, 5, -14, -19, -19, 10, 13, 8, -17, 9, 5, 7, -17, -12, -16, 11, -3, -1, 0, -15, 18, -13, -18, 3, -16, -11, -16, -2, -10, 11, -20, -8, -8, 7, -6, 15, 6, -7, 17, 6, 18, 0, 2, -3, 7, 0, 11, 14, 16, 17, -12, -6, -1, -16, -13, -11, -11, -1, 19, -9, -1, 4, 12, 2, -17, -20, 0, 0,
kol otric = 52 kol polowit = 43
================
12, 2, 3, 20, -16, 16, 15, -9, -7, 8, -13, 10, 5, 6, 0, -19, 10, 5, -4, -9, 2, -1, -16, -20, 6, 0, -9, 18, 17, -20, 5, 10, 17, -4, 2, 9, 10, 16, -16, 2, -20, -4, -7, -19, -18, 16, 20, -4, 18, -20, -17, 1, 12, -15, 11, 20, 15, 7, -2, 17, -2, -10, 2, 12, -3, 8, -12, -8, 1, -4, 13, 3, 7, -4, -10, -10, 1, 4, 10, -19, 20, -1, 8, -7, 18, -19, -17, -17, -16, 7, 0, 8, -18, 1, -8, -16, 0, -1, 6, 3,
kol otric = 44 kol polowit = 52
================
1, -20, 2, -8, -5, 0, -19, 4, -2, -14, 9, 5, 4, 12, -11, -9, -20, -11, -15, -3, 13, 17, 16, 1, -19, -20, 14, 16, 5, -19, -13, -19, -10, 8, -16, 13, 19, -4, 7, 18, -20, -11, 4, 17, 11, -20, -9, 18, 15, -8, -15, 14, -14, 14, 16, 16, 19, 8, -20, -12, 16, -6, -9, -20, 3, -20, -1, 7, 14, 19, -5, -17, 6, -18, -6, 17, -4, 2, -11, -1, 9, 18, 12, 0, 8, -13, -12, 20, -5, -18, -12, -11, -6, -8, -19, -2, -17, -6, 7, 12,
kol otric = 53 kol polowit = 45
================
14, 13, -9, 15, -1, -5, 1, -1, 2, -3, 4, 17, -3, 13, -5, 2, -20, -17, 14, 13, 2, 16, 13, 12, 12, 17, -10, 16, -15, 7, -5, 18, 9, -13, 6, 10, 1, 7, -19, -1, 18, -17, -12, 4, -7, 19, 0, -17, -9, 10, -13, 5, 0, 16, 3, -7, -10, 17, 7, 7, -15, 12, 1, 3, -15, -3, -4, 2, -4, 20, -9, -6, -13, -1, 18, 10, 3, -2, 16, -13, -6, 14, 18, 6, 14, -2, 14, -11, -12, 15, -19, -17, -7, -16, 11, 18, 2, 14, 12, 3,
kol otric = 42 kol polowit = 56
================
2, -13, 17, 11, -4, -1, 4, -11, 18, -2, 16, -6, 0, -12, 19, 18, 13, 0, -17, -18, 20, 7, -15, -3, 3, 6, 10, 3, -13, -8, -4, 20, -6, -20, -9, -13, -5, 18, -7, 2, 10, 16, -18, -8, 1, -9, -5, 19, -17, -1, -16, -4, 10, 12, -17, 11, -8, 0, 9, 18, 4, -3, -16, -6, -15, 19, -8, 0, 18, -14, 18, -9, 4, 3, -5, 1, -9, 18, -20, -4, 8, -8, 16, 14, -14, -4, -14, -1, 2, -14, 1, 9, -13, -15, 9, 3, -4, -5, 19, -3,
kol otric = 52 kol polowit = 44
================
15, -4, 15, 18, 5, -7, -5, 9, 7, -20, 14, 0, 12, 17, -9, -13, -4, 0, 10, 15, 5, 18, 5, 19, -10, 3, 6, 8, 5, 17, -4, 19, 3, 16, 6, 14, 3, 19, 19, 7, -6, -2, -5, 18, -11, -19, 6, -18, -1, -3, 11, -12, 4, -7, -2, 4, -12, -7, -10, -17, -4, 1, 15, 2, -12, -13, 15, -7, -14, -9, 0, 20, 17, -19, 10, 2, -17, 11, -10, -19, -3, -20, 15, -17, 0, 17, 9, -11, 19, 17, -11, -5, 15, 17, 9, 17, 20, -4, 20, 17,
kol otric = 41 kol polowit = 55
================
-17, 12, 14, 1, 7, 2, 19, 18, 15, 6, -4, -12, 6, -10, -6, 11, 6, -1, 20, -5, -17, 9, -2, 1, -15, -18, 0, -3, 20, -11, -7, -9, 17, -12, -10, -20, -5, 6, 8, -14, 14, 14, 9, 12, 0, -13, -6, -12, 10, 7, -16, 6, 3, -2, 7, 7, 4, -12, 6, 15, -2, -18, -12, -11, 9, 2, -1, -11, -16, 11, 19, 7, -12, 4, -12, 4, -13, -20, 9, 10, 0, 0, 6, 17, 12, 5, 7, 12, 7, -9, -10, -1, 14, 15, -19, 12, 20, -12, 3, -14,
kol otric = 43 kol polowit = 53
================