Составить программу на pascal abc нахождение наибольшего из 4 чисел

Var a,b,c,d:integer;
begin
write('a,b,c,d->'); read(a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a>c then Writeln(a) else Write(c);
end.