Identificar la nota mas alta (Examen)

progam nomre;
uses wincrt;
var
nota,n1, n2, n3, n4:real;
begin
writeln('ingrese n1');
readln(n1);
writeln('ingrese n2');
readln(n2);
writeln('ingrese n3');
readln(n3);
writeln('ingrese n4');
readln(n4);
if (n1>n2) and (n1>n3) and (n1>n4) then
writeln('la n1 es mayor');
if (n2>n1) and (n2>n3) and (n2>n4) then
writeln('la n2 es mayor');
if (n3>n1) and (n3>n2) and (n3>n4) then
writeln('la n3 es mayor');
if (n4>n1) and (n4>n2) and (n4>n3) then
writeln('la n1 es mayor');
end.