Найдите max из 3 чисел, введенных с клавиатуры pascal

Var a, b, c, max:integer;

begin

readln (a) ;

readln (b) ;

readln (c) ;

if (a=b) and (a=c) then writeln ('все числа одинаковые') else begin

if (a>=b) and (a>=c) then max:=a;

if (b>=a) and (b>=c) then max:=b;

if (c>=b) and (c>=a) then max:=c;

writeln (max) ;

end;

end.