Через переменную х вводятся 10 чисел

Vara: array[1… 10]of integer; k1, k2 , i: Integer; Begin k1: =0; k2: =0; writeln ('Введите массив: '); for i: =1 to 10 do begin write ('A[',i,']='); readln (a[i]); end; for i: =1 to 10 do if a[i] > 0 then Inc (k1) else if a[i] < 0 then Inc (k2); writeln ('Np=',k1,'; Nn=',k2); readln; End.