Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). 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.