LP - Software que coloca os números em ordem crescente - If Else - Pascal

Program orden_crescente_dois_numeros;
var n1,n2:real;
 Begin
  writeln('Software que coloca os números em ordem crescente');
  write('Digite o primeiro número...: ');
  read(n1);
  write('Digite o segundo número...: ');
read(n2);
if (n1=n2) then
write('Os números são iguais.');
if (n1<n2) then
write('A ordem crescente dos números é ',n1:2:2,' ',n2:2:2);
if (n1>n2) then
write('A ordem crescente dos números é ',n2:2:2,' ',n1:2:2);
 End.