Program Pascal Menginputkan Array dalam Record

Dibawah ini adalah coding pascal untuk menginputkan array dalam record:

program recordmhs; uses crt;
type
      mahasiswa = record
                           nim                  :string[8];
                           nama               :string[30];
                           alamat             :string[30];
                           jurusan            :string[20];
                           telp                   :string[20];
                           tanggal_lahir   :string[20];
     end; var
     mhs :array[1..50] of mahasiswa;
     byk :byte;
     i , j :integer;
begin
         clrscr;
         writeln('_______________TUGAS______________');
         writeln('___________STRUKTUR DATA__________');
         write(Masukkan Jumlah mahasiswa: '); readln(byk);
         for i:= 1 to byk do
         begin
         write('Nim                     :'); readln (mhs[i]. nim);
         write('Nama                  :'); readln (mhs[i]. nama);
         write('Alamat                :'); readln (mhs[i]. alamat);
         write('Jurusan               :'); readln (mhs[i]. jurusan);
         write('No Telpon           :'); readln (mhs[i]. telp);
        write('Tanggal_lahir      :'); readln (mhs[i]. tanggal_lahir);
        writeln;
        end;
        writeln;
        writeln('Data mahasiswa yang telah diinputkan');
        writeln('=========================');
        for j:= 1 to byk do
        begin
        writeln('Nim                      :', mhs[j]. nim);
        writeln('Nama                   :', mhs[j]. nama);
        writeln('Alamat                 :', mhs[j]. alamat);
        writeln('Jurusan                :', mhs[j]. jurusan);
        writeln('No Telpon            :', mhs[j]. telp);
        writeln('Tanggal_lahir      :', mhs[j]. tanggal_lahir);
        writeln;
        end;
        writeln('_________STIKI INDONESIA__________');
        readln;
        end.

Di bawah ini gambar codingnya di program pascal: 

  
Berikut hasil outputnya:

SEMOGA BERMANFAAT :)