CLS
TYPE kimlik
    ad AS STRING * 10
    no AS INTEGER
END TYPE
OPTION BASE 1
DIM a(5) AS kimlik
FOR i = 1 TO 5
    INPUT "adiniz"; a(i).ad
    INPUT "numaraiz"; a(i).no
NEXT i

FOR m = 1 TO 5
    FOR n = m + 1 TO 5
        IF a(m).no > a(n).no THEN
            t1 = a(m).no
            a(m).no = a(n).no
            a(n).no = t1
            t2$ = a(m).ad
            a(m).ad = a(n).ad
            a(n).ad = t2$
        END IF
    NEXT n
NEXT m
DO WHILE s < 5
    s = s + 1
    PRINT a(s).no
    PRINT a(s).ad
LOOP