Mengurutkan Angka yang diinput secara ascending dengan menggunakan Pascal

okeh sobat blogger, langsung saja buka editor Pascal-nya..

dan ketikkan script di bawah ini,

PROGRAM URUT;
USES CRT;
VAR BILANGAN:ARRAY[1..100] OF INTEGER;
A,
B,
JUMLAH,
X,
Y,
Z:INTEGER;
PROCEDURE TUKAR(VAR A1, A2:INTEGER);
VAR A3:INTEGER;
BEGIN A3:=A1;
A1:=A2;
A2:=A3;
END;
BEGIN CLRSCR;
WRITE('MASUKKAN BANYAK BILANGAN: ');
READLN(B);
FOR A:=1 TO B DO BEGIN WRITE('NILAI KE ', A, ' = ');
READLN(BILANGAN[A]);
JUMLAH:=JUMLAH+BILANGAN[A];
END;
WRITELN('TOTAL 
 BILANGAN YANG DIINPUT ADALAH: ',JUMLAH); 
 WRITE('BILANGAN YANG DIMASUKKAN ADALAH: ');
FOR X:=1 TO B-1 DO BEGIN FOR Y:=X+1 TO B DO BEGIN IF BILANGAN[X] > BILANGAN[Y] THEN {
    kalo mau jadikan descending, ubah saja tanda ">" menjadi "<"
}

TUKAR(BILANGAN[X], BILANGAN[Y]);
END;
END;
FOR Z:=1 TO B DO WRITE(BILANGAN[Z]:4);
READLN;
END.

Outputnya kurang lebih kayak di bawah setelah di running!!