PROGRAM Tugas_table_n_sorting;

USES CRT;

CONST

garis='------------------------------------------------------';

VAR

kelas : ARRAY [1..100] OF STRING[5];

npm : ARRAY [1..100] OF STRING[8];

nama : ARRAY [1..100] OF STRING[15];

min, temp : STRING;

n,i,bar,kelompok,tempatnya_min : INTEGER;

BEGIN

CLRSCR;

{ pemasukan data dalam array }

WRITE('MAU ISI BERAPA DATA : ');

READLN(N);

FOR i:= 1 TO n DO

BEGIN

CLRSCR;

GOTOXY(30,4); WRITE('DATA KE- ',i:2);

GOTOXY(10,7); WRITE('NPM : '); READLN(NPM[i]);

GOTOXY(10,8); WRITE('NAMA : '); READLN(NAMA[i]);

GOTOXY(10,9); WRITE('KELAS : '); READLN(KELAS[i]);

END;

{ proses pengurutan}

FOR kelompok := 1 to n do

BEGIN

min := KELAS[kelompok];

FOR i := kelompok to n do

BEGIN

IF (KELAS[i] <= min) then

BEGIN

min := KELAS[i];

tempatnya_min := i;

END;

END;