Program sravnenie;
var a,b:integer;
begin
writeln('Введите первое число');
readln(a);
writeln ('Введите второе число');
readln(b);
if a>b then writeln('первое введенное число больше')
else
writeln ('второе введенное число больше');
end.
Не ручаюсь за правильную расстановку точек с запяток, ибо давно на паскале не писал) Проверьте через среду разработки.