Sintak Program Menggunakan Record

uses wincrt;
Type tabel_mhs = record
                 nim   :string;
                 nama  :string;
                 nilai : integer;
         end;

Var mhs          : array [1..10] of tabel_mhs;
    n,i,j,temp1  :integer;
    temp2,temp3  :string;
begin
write('>> Jumlah Mahasiswa : ');
readln(n);