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

Program comparison;

var

a,b,c:real;

begin

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

readln(a);

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

readln(b);

if a>b then

begin

c:=a-b;

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

end;

if a<b then

begin

c:=b-a;

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

end;

if a=b then

write ('Числа равны');

end.