НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ 4 ЧИСЕЛ в ПАСКАЛЕ. Примерное начала задачи на фото, возможно не правильное

Паскаль АВС

Program  Sanmy;
uses crt;
var
  a,b,c,d:real;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  write('c='); readln(c);
  write('d='); readln(d);
  if b>a then a:=b;
  if c>a then a:=c;
  if d>a then a:=d;
  writeln ('Максимальный элемент = ',a);
end.