PROGRAM RECORD: MENGURUTKAN NIM MAHASISWA

Apa kabar kawan semua, lagi-lagi saya mau berbagi coding. Sekarang mengenai program Record mengurutkan data mahasiswa berdasarkan NIM. Nie koding kukerjakan saat PosTest Alpro kemarin, akhirnya sukses ku kerjakan. Padahal semester 1 dulu saya g ngerti recor itu seperti apa. G pakai lama, alngsung Copy codingnya dibawah ini......

program data_mahasiswa;

uses wincrt;

type
    mahasiswa = record
       nama, alamat : string;
       nrp : integer;
end;

var
   datamahasiswa : array[1..20] of mahasiswa;
   n, i, j : integer;
   bantuan : mahasiswa;

procedure data;
   begin
     write('Masukkan banyaknya data: '); readln(n);
     for i := 1 to n do
         begin
              write('Data Mahasiswa ke ',i);
              writeln;
              write('Masukkan nama  : '); readln(datamahasiswa[i].nama);
              write('Masukkan NRP   : '); readln(datamahasiswa[i].nrp);
              write('Masukkan alamat: '); readln(datamahasiswa[i].alamat);
              writeln;
         end;
   end;

procedure urut;
   begin
      for i := 1 to n-1 do
         for j := 1 to n-1 do
           if datamahasiswa[j].nrp > datamahasiswa[j+1].nrp then
              begin
                   bantuan := datamahasiswa[j];
                   datamahasiswa[j] := datamahasiswa[J+1];
                   datamahasiswa[j+1] := bantuan;
              end;
   end;

procedure tampil;
   begin
        writeln('                 .::PROGRAM DATA MAHASISWA::.                ');
        writeln('-------------------------------------------------------------');
        writeln('| NO |        NAMA        |       NRP      |     ALAMAT      |');
        writeln('-------------------------------------------------------------');

        for i := 1 to n do
           begin
                writeln(i:3, datamahasiswa[i].nama:15, datamahasiswa[i].nrp:18, datamahasiswa[i].alamat:20);
           end;
   end;

begin
data;
urut;
clrscr;
tampil;
end.