Паскаль найти из четырёх чисел наибольшее

var a,b,c,d,max : real;

begin

write('Первое число: '); read(a);

write('Второе число: '); read(b);

write('Третье число: '); read(c);

write('Четвертое число: '); read(d);

if (a>b) and  (a>c) and (a>d)  then

max:=a;

if (b>a) and  (b>c) and (b>d)  then

max:=b;

if (c>a) and  (c>b) and (c>d)  then

max:=c;

if (d>b) and  (d>c) and (d>a)  then

max:=d;

writeln('Наибольшее число: ',max);

end.