Сколько элементов массива больших, меньших и равных Х

var a: array[1… 100] of integer; x,i,less,more,equal: integer; Begin {ввод массива самостоятельно, как там у вас принято} read (x); for i: =1 to 100 do begin if a[i]>x then more: =more+1; if a[i]