LP - Software que coloca 3 números em ordem crescente - Pascal

Program orden_crescente_tres_numeros;
var n1,n2,n3:real;
 Begin
  writeln('Software que coloca 3 números em ordem crescente');
  write('Digite o primeiro número...: ');
  read(n1);
  write('Digite o segundo número...: ');
read(n2);
  write('Digite o terceiro número...: ');
  read(n3);
if (n1<n2)and(n1<n3) then
Begin
if(n2<n3)then
write('A ordem crescente é ',n1:2:2,' ',n2:2:2,' ',n3:2:2)
else
write('A ordem crescente é ',n1:2:2,' ',n3:2:2,' ',n2:2:2);
    End;
if (n2<n3)and(n2<n1) then
Begin
if(n3<n1)then
write('A ordem crescente é ',n2:2:2,' ',n3:2:2,' ',n1:2:2)
else
write('A ordem crescente é ',n2:2:2,' ',n1:2:2,' ',n3:2:2);
    End;
if (n3<n1)and(n3<n2) then
Begin
if(n1<n2)then
write('A ordem crescente é ',n3:2:2,' ',n1:2:2,' ',n2:2:2)
else
write('A ordem crescente é ',n3:2:2,' ',n2:2:2,' ',n1:2:2);
    End;
 End.