Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). free pascal 2.4.4

Function max(a,b : Integer) : Integer;
Begin
  If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
  Readln(x,y);
  Writeln(Max(x,y));
end.