Сделать программку, которая сравнивает два числа и выводит известье с информацией

Program comparison;

var

a,b,c:real;

begin

write ('Введите первое число:');

readln(a);

write ('Введите 2-ое число:');

readln(b);

if agt;b then

begin

c:=a-b;

write ('1-ое число больше второго на ', c);

end;

if alt;b then

begin

c:=b-a;

write ('Второе число больше первого на ', c);

end;

if a=b then

write ('Числа одинаковы');

end.