contoh program record

dalam program ini saya akan memberikan contoh program record menggunakan pascal,,, record adalah program yang berfungsi untuk menyimpan data dan memproses data yang akhirnya akan di tampilkan sesuai dengan instruksi yang diberikan...
dalam contoh ini saya membuat program record untuk menampilkan nama mahasiswa berdasarkan NRP dari yang terendah sampai tertinggi.
berikut source codenya :

Program urut_nilai;
uses wincrt;
const Nmaks = 100;
type
Mahasiswa = record
nim : integer;
nama : string[20];
kode : string[10];
nilai: string[5];
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('NRP 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 do
  for j := 1 to n do
  if TabMhs[j].nilai < TabMhs[i].nilai then
  begin
   Bantuan := TabMhs[j];
   TabMhs[j]:= TabMhs[i];
   TabMhs[i]:= Bantuan;
  end;
end;
procedure tampil;
begin
 writeln;
 writeln('------------------------------------------------');
 writeln('    NRP           Nama            Kode    Nilai ');
 writeln('------------------------------------------------');
 for I := 1 to N do
 begin
 writeln(TabMhs[i].nim:10,TabMhs[i].nama:20,TabMhs[i].kode:10,TabMhs[i].nilai:5);
 end;
 writeln('------------------------------------------------');
end;
begin
write('Jumlah Mahasiswa = ');readln(n);
bacadata;
urut;
tampil;
end.

berikut hasil running programnya :



semoga contoh ini bermanfaat bagi para pembaca blog ini,,
^_^