Pascal 007 ► Determinar el número menor, intermedio y mayor

Ejercicio 007: Determinar el número menor, intermedio y mayor de tres números dados.

Program Pascal_007;
uses crt;
var
    n1, n2, n3, mayor, menor, inter : integer;
begin
    WriteLn('Ingresa primer número');
    Readln(n1);
    WriteLn('Ingresa segundo número');
    Readln(n2);
    WriteLn('Ingresa tercer número');
    Readln(n3);
    mayor := n1;
    menor := n1;
    inter := n1;
    if (n2 > mayor) then
        mayor := n2;
    if (n3 > mayor) then
        mayor := n3;
    if (n2 < menor) then
        menor := n2;
    if (n3 < menor) then
        menor := n3;
    if ((n1 > menor) and (n2 < mayor)) then
        inter := n1;
    if ((n2 > menor) and (n2 < mayor)) then
        inter := n2;
    if ((n3 > menor) and (n3 < mayor)) then
        inter := n3;
    WriteLn('Menor: ',menor);
    WriteLn('Intermedio: ',inter);
    WriteLn('Mayor: ',mayor);
    ReadKey;
end.