Задача с циклом

[Masha252623]

Вводятся N чисел и сравниваются с каким-то наперёд заданным числом A. Вывести про каждое число сообщение: "больше","меньше" или "равно" этому значению A.
Помогите пожалуйста

[digitalis]

Числа real или integer ?

[Masha252623]

integer

[SASFM]

var a,b,n,i:integer;
begin
  read(a,n);
  for i:=1 to n do
  begin
    read(b);
    if b>a then writeln('Больше') else
    if b<a then writeln('Меньше') else
    if b=a then writeln('Равно');
  end;
end.

[Masha252623]

Большое спасибо!