Склавиатуры вводятся два числа. выведи на экран то,которое больше. (с паскаля)

Program q;
var a, b, max:integer;
begin
  write('VVedite 2 chisla');
read(a,b);
max:=a;
if a<b then
max:=b
else 
 max:=a;
writeln(max);
end.