Написать программку нахождения наивеличайшего значения их 5 переменных

Var a,b,c,d,e,max:integer;
begin 
writeln('a, b, c, d, e:');
readln(a,b,c,d,e);
If agt;b then max:=a else max:=b;
If cgt;max then max:=c;
If dgt;max then max:=d;
If egt;max then max:=e;
Writeln('max = ',max);
End.

Пример:
a, b, c, d, e:
8 5 2 9 4
max = 9

Var a,b,c,d,e,max:integer;
begin
readln(a,b,c,d,e);
If (agt;b) and (agt;c) and (agt;d) and (agt;e) then max:=a;
If (bgt;a) and (bgt;c) and (bgt;d) and (bgt;e) then max:=b;
If (cgt;a) and (cgt;b) and (cgt;d) and (cgt;e) then max:=c;
If (dgt;a) and (dgt;b) and (dgt;c) and (dgt;e) then max:=d;
If (egt;a) and (egt;b) and (egt;c) and (egt;d) then max:=e;
Writeln(max);
End.