составить программу в pascal abc. Найдите максимальное среди введеных 4 чисел. Зарание спасибо

var a,b,c,d,max:integer;beginmax:=-100000;readln(a);if max<a then max:=a;readln(b);if max<b then max:=b;readln(c);if max<c then max:=c;readln(d);if max<d then max:=d;writeln(max);end.