Program Record Sederhana

program recordmahasiswa;
uses wincrt;

type
mahasiswa = record
nrp : String[15];
nama : String[10];
nilai : integer;
end;

var
mhs : array[1..100] of mahasiswa;
N,i : integer;

begin
write('Masukkan jumlah mahasiswa : ');readln(N);
for i := 1 to N do
begin
write('NRP Mahasiswa -',i,' : ');readln(mhs[i].nrp);
write('Nama Mahasiswa -',i,' : ');readln(mhs[i].nama);
write('Nilai Mahasiswa -',i,' : ');readln(mhs[i].nilai);
end;
end.

Ntr di modif sendiri ya kalo pengen bagus....(^_^)