Написать алгоритм: Даны 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.