Написать алгоритм: даны 2 числа a и b оба вводятся с клавиатуры , написать алгоритм нахождения наибольшего из них

Var a,b :real;
begin
write ('a=');
read(a);
write('b=');
read(b);
if a=b
 then write ('Числа равны') 
else if a>b 
then write ('Первое число больше') 
else write ('Второе число больше'); 
end.
P.s. Алгоритм написан на языке Pascal ABC.