Написать программу которая определяет максимальное значение 2 вещественных чисел в pascal

Program vewestvennoemax;
var max,a,b:real;
begin
readln(a,b);
if a>b then max:=a else max:=b;
writeln('Maksimalnoe= ',max);
end.