Написать программу которую найдёт болшее число из 5

Ar
a, b, c, d, n : integer;
begin
write(введите первое число );
readln(a);
write(введите второе число );
readln(b);
write(введите третье число );
readln(c);
write(введите четвёртое число );
readln(d);
n:=a;
if bgt;n then n:=b;
if cgt;n then n:=c;
if dgt;n then n:=d;
writeln(Большее из чисел равно , n);
end.