Record di Dalam Array

Hay kita ketemu lagi kawan :)
Kali ini saya akan membagi pengetahuan saya mengenai membuat record dalam array. Sebelumnya kita tahu bahwa record adalah tipe data yang menampung lebih dari satu data, dimana tipe data dalam record dapat berbeda. Berbeda dengan array, dimana setiap data yang tersimpan dalam array harus memiliki tipe data yang sama. (referensi : Modul Pratikum Algoritma dan Pemrograman Dasar STIKI Indonesia).
 Berikut cara mengklarifikasikan record :

type nama_record = record

            nama_field₁ : tipe_data₁;
            nama_field₂ : tipe_data₂;
             ..................
            nama_field_n : tipe_data_n ; 
            end;


Contoh :

Program nia;

Uses crt;

Const maks = 20;

Type maha = record

nim: string [8];

jurusan : string [20];

nama : string [20];

alamat : string [20];

end;

Var

recmaha : array [1..maks] of maha;

I,n : integer;

           write (‘Masukkan jumlah mahasiswa : ‘); readln(n);

            Writeln;

            For i:= 1 to n do

            Begin

              Write (‘NIM : ‘); readln(recmaha[i].nim);

              Write (‘Jurusan : ‘); readln(recmaha[i].jurusan);

              Write (‘Nama : ‘); readln(recmaha[i].nama);

              Write (‘Alamat : ‘); readln(recmaha[i].alamat);

              Write (‘Telpon : ‘); readln(recmaha[i].telp);

              Write (‘Tanggal Lahir : ‘); readln(recmaha[i].tgl_lahir);

              Writeln;

              End;

Writeln (‘Data mahasiswa yang anda masukkan : ‘);

Writeln;

For i:= 1 to n do

begin

            Writeln  (‘NIM : ‘, recmaha[i].nim);

            Writeln (‘Jurusan : ‘, recmaha[i].jurusan);

            Writeln (‘Nama : ‘, recmaha[i].nama);

            Writeln (‘Alamat : ‘, recmaha[i].alamat);

            Writeln (‘Telpon : ‘, recmaha[i].telp);

            Writeln (‘Tanggal Lahir : ‘, recmaha[i].tgl_lahir);

             Writeln;

            End;

Readln;

End.

Sehingga saat dijalankan akan tampak seperti gambar dibawah.
 
Terimakasih atas kunjungannya, semoga bermanfaat ;)