Решить по ивт на языке паскаль. ввести пять чисел и найти наибольшее из них

Program z1;
var
a1,a2,a3,a4,a5,ab1,ab2,ab3,max1:integer;
begin
writeln('Введите 5 чисел');
readln(a1,a2,a3,a4,a5);
ab1:=max(a1,a2);
ab2:=max(a3,a4);
ab3:=max(ab1,ab2);
max1:=max(ab3,a5);
writeln(max1);
end.