Паскаль. Найти max из 3-х чисел

uses crt;
var  a, b, c, max: integer;
begin 
readln(a,b,c); 
writeln(a, '   ', b, '   ', c); 
max := a;  
if max < b then max := b; 
if max < c then max := c; 
writeln('max= ',max);
end.