Найти максимальное из 4 вводимых значений a, b, c, d?

Var a,b,c,d,max:integer;
begin
writeln('Vvedite chusla');
readln(a,b,c,d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('max=',max);
end.