НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ 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.