Para ordenar 3 números realice lo sgte:
PROGRAM OREN;
USES CRT;
VAR A,B,C : INTEGER;
BEGIN
    READLN(A,B,C);
    IF  (A< B) AND (A<C)
         THEN
            IF (B<C)
                 THEN
                  WRITELN(A,' ',B,' ',C)
                 ELSE
                   WRITELN(A,' ',C,' ',B );
    IF  (B< A) AND (B<C)
         THEN
            IF (A<C)
                 THEN
                  WRITELN(B,' ',A,' ',C)
                 ELSE
                   WRITELN(B,' ',C,' ',A );

    IF  (C< A) AND (C<B)
         THEN
            IF (A<B)
                 THEN
                  WRITELN(C,' ',A,' ',B)
                 ELSE
                   WRITELN(C,' ',B,' ',A ) ;

 READKEY;
END.

Ojala les sirva... Saludos