Определить сколько элементов массива больше, меньше или равных X — Pascal(Паскаль)

uses crt;

var
  x, i, size, more, less, mid: integer;
  a: array [1 .. 10000] of integer;

begin
  CLrscr;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(a[i])
  end;
  writeln('Введите число x');
  readln(x);
  FOR i := 1 TO size do
  begin
    IF a[i] > x THEN
      more := more + 1;
    IF a[i] < x THEN
      less := less + 1;
    IF a[i] = x THEN
      mid := mid + 1;
  end;
  writeln('Больше числа Х в массиве элементов ', more);
  writeln('Меньше числа Х в массиве элементов ', less);
  writeln('Равных числу Х в массиве элементов ', mid);

end.