Найти rnax из 2 введенных чисел a и b

Var   a, b: integer;

procedure Max(a, b: integer);  
begin  
if(a > b) then write(a)  
else write(b); 
end;  

begin  
read(a, b);  
Max(a, b); 
end.