Сканер вводит графическую информацию в компьютер, монитор выводит информацию текстовую и графическую, мышь вводит информацию и управляет компьютером.
счётчик цикла должен быть целым, т. е. integer!!
Var
a,b:integer;
begin
Write('вводите a,b: ');
Read(a,b);
if a>b then Writeln('Первое число больше')
else
if a<b then Writeln('Второе число больше')
else Writeln('Числа равны')
end.