PROGRAM RECOR "NOMOR URUT MAHASISWA"

Apa kabar teman, bertemu lagi dengan tutorial saya, kali ini saya berbagi mengenai program record "mengurutkan data mahasiswa berdasarkan NIM". Sekedar tau aja, sebelumnya saya nggak tau sama sekali tentang apa tu record. tapi setelah adanya praktikum Alpro, ALHAMDULILLAH bisa. Terimakasih banyak untuk Mas Shohib yang telah "susah payah" menularkan ilmunya. Cukup sekian curhatnya, langsung saja copy paste source cedenya dibawah ini...

Program URUT_NIM;
uses wincrt;
const Nmaks = 100;
type
Mahasiswa = record
NIM  : integer;
Nama : string[20];
Kode : string[10];
Nilai: char;
end;
var
TabMhs : array[1..Nmaks] of Mahasiswa;
Bantuan : Mahasiswa;
I, J, N : integer;
procedure BacaData;
begin
for I := 1 to N do
begin
writeln;
write('Nomor Mahasiwa ke-',I,' ? ');readln(TabMhs[I].NIM);
write('Nama Mahasiwa ke-',I,' ? ');readln(TabMhs[I].Nama);
write('Kode Mata Kuliah ke-',I,' ? ');readln(TabMhs[I].Kode);
write('Nilai Mahasiwa ke-',I,' ? ');readln(TabMhs[I].Nilai);
end;
end;
procedure urut;
begin
for I := 1 to N-1 do
for J := 1 to N-1 do
if TabMhs[J].NIM > TabMhs[J+1].NIM then
begin
Bantuan := TabMhs[J];
TabMhs[J]:= TabMhs[J+1];
TabMhs[J+1]:= Bantuan;
end;
end;
procedure tampil;
begin
writeln;
writeln('------------------------------------------------');
writeln('    Nomor         Nama            Kode    Nilai ');
writeln('------------------------------------------------');
for I := 1 to N do
begin
writeln(TabMhs[I].NIM:7,TabMhs[I].Nama:13,TabMhs[I].Kode:16,TabMhs[I].Nilai:9);
end;
writeln('------------------------------------------------');
end;

(* PROGRAM UTAMA *)
begin
write('Jumlah Mahasiswa ? ');
readln(N);
writeln;
bacadata;

urut;
tampil;
end.