Program Array dalam Record dengan Pascal

Dalam postingan berikut saya akan memposting tugas kuliah saya yang berhubungan dengan program pascal. Cukup membuat saya pusing dalam menyelesaikan tgas ini, tapi apa boleh buat memang sudah menjadi kewajiban dalam kuliah yaitu mengerjakan tugas.dan hasilnya seperti ini.

Dan berikut adalah skripnya

uses wincrt;
type mahasiswa=record
nama:string; NIM:integer;
jumlah:byte;
end;
var beasiswa:array [1..10] of mahasiswa;
n,i,j:integer;

begin
write(' Banyaknya data yang diinginkan= ');
readln(n);
for i:=1 to n do
begin
write('masukkan nama mahasiswa= ');
readln(beasiswa[i].nama);
write(' masukkan NIM=');
readln(beasiswa[i].NIM);
write(' masukkan Beasiswa=Rp. ');
readln(beasiswa[i].jumlah);
end;
writeln(' Data Mahasiswa yang mendapat Beasiswa ');
writeln('____________________________________________');
writeln('No. Nama NIM Beasiswa ');
writeln('____________________________________________');

for i:=1 to n do
begin
writeln(i:1,'.',beasiswa[i].nama:10,beasiswa[i].NIM:10,'':10,
'Rp.',beasiswa[i].jumlah);
end;
end.