Program algoritma penggabungan array dan record

    Oke gun'' semua...di sore menjelang malam ini saya mau berbagi tentang cara menggunakan type record alam array dengan menggunakan turbo pascal :-d.  Ada yang tahu caranya ga' gun  :-? ?

    1. Pertama gun buka turbo pascal

    2.trus buat program baru

    3.Tulislah coding di bawah ini ke turbo pascal

8-)  oke gun ... langsung saja kita  mulai !!!

     COODING

program record_mahasiswa;

uses crt ;
type
   mahasiswa = record
       nim       : string[8];
       nama      : string[30];
       jurusan   : string[20];
       tgl       : string[10];
       alamat    : string[30];
       notelp    : string[12];
    end;
var
    recMhs : array[1..50]of mahasiswa ;
    byk: byte;
    a,b: integer;
begin
    clrscr;
    textcolor(5);
    writeln ('*** TUGAS STRUKTUR DATA ***');
    writeln ('***************************');
    writeln;
    textcolor(7)
    write('Masukkan jumlah mahasiswa: '); readln(byk);
       for a:= 1 to byk do
     begin
    write('NIM          : '); readln(recMhs[a].nim);
    write('Nama         : '); readln(recMhs[a].nama);
    write('Jurusan      : '); readln(recMhs[a].jurusan);
    write('Tanggal Lahir: '); readln(recMhs[a].tgl);
    write('Alamat       : '); readln(recMhs[a].alamat);
    write('No Telpon    : '); readln(recMhs[a].notelp);
    writeln;
    writeln;
   end;
    textcolor(9);
    writeln('Data Yang Sudah di Inputkan');
    writeln;
       for b:= 1 to byk do
    begin
    writeln('NIM          : ',recMhs[b].nim);
    writeln('Nama         : ',recMhs[b].nama);
    writeln('Jurusan      : ',recMhs[b].jurusan);
    writeln('Tanggal Lahir: ',recMhs[b].tgl);
    writeln('Alamat       : ',recMhs[b].alamat);
    writeln('No Telpon    : ',recMhs[b].notelp);
    writeln;
   end;
    writeln;
    writeln;
    write (' *** STIKI INDONESIA *** ');
    readln;
end.