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