Дам 24 балла за программу_) паскаль 10 класс
Дан массив, заданный датчиком случайных чисел в интервале [-70;150]. Найти количество отрицательных и положительных элементов массива.

const n=20;var x : array[1..n] of integer;   i, k1, k2 : integer;beginRandomize; writeln('Исходный массив:');for i:=1 to n do begin  x[i]:=random(221)-70;   write(x[i],' '); end;writeln;k1:=0; k2:=0;for i:=1 to n do begin if x[i] > 0 then k1:=k1+1; if x[i] < 0 then k2:=k2+1; end;writeln('k1=',k1,'  k2=',k2);end.Пример:Исходный массив:73 -14 70 32 25 -31 110 117 11 -41 122 129 -49 54 65 57 -32 -49 110 -25 k1=13  k2=7