Осень ! ! написать программу поиска наибольшего из двух чисел. найденное число должно быть помещено в переменную max.

Program fghh;
a,b,max:real;
Begin
Writeln('Введите числа a,b');
Readln(a,b);
if a>b
then max:=a
else max:=b;
Writeln('Наибольшее число ', max);
Readln(max);
end.