Value of Student Examination

This is statement to input file

Program InputFile;
uses wincrt;
const Jumlah_MK = 5;
Type B_Nilai = 1..100;
Nilai = record
Nama_Mhs : string[25];
No_Mhs : string[5];
Angkatan : string[5];
Nilai_Ujian : array [1..Jumlah_MK] of B_Nilai;
Nilai_Rata : real;
end;
D_Nilai = file of Nilai;

Var Daf_Nilai : D_Nilai;
Nilai_MHs : Nilai;
I, J : integer;
Lagi : char;

Begin
assign (Daf_Nilai,'D:\NILAI.TXT');
rewrite(Daf_Nilai);
I := 0;
repeat
inc(I);
clrscr;
writeln('Input Data in file "Nilai.TXT"');
writeln('-----------------------------------'); writeln;
Writeln('Input record of : ', I:2);
writeln('----------------------');
With Nilai_Mhs Do
begin
Nilai_Rata := 0.0;
write('Name of student : '); readln(Nama_Mhs);
write('Number of student : '); readln(No_Mhs);
write('Angkatan : '); readln(Angkatan);
For J := 1 to Jumlah_Mk Do
Begin
write('Value of MK',J,' : '); readln(Nilai_Ujian[J]);
Nilai_Rata := Nilai_rata + Nilai_Ujian[J]
end;
Nilai_Rata := Nilai_rata/Jumlah_MK
end;
write(Daf_Nilai, Nilai_Mhs);
gotoxy(1,20); write('input again? Y/T : ');
readln(lagi);
until not(Lagi in ['Y','y']);
close(Daf_Nilai);
readln
end.

This is statement to read file :

Program ReadFile;
uses wincrt;
const Jumlah_MK = 5;
Garis = '-------------------------------------';
Type B_Nilai = 1..100;
Nilai = record
Nama_Mhs : string[25];
No_Mhs : string[5];
Angkatan : string[5];
Nilai_Ujian : array [1..Jumlah_MK] of B_Nilai;
Nilai_Rata : real;
end;
D_Nilai = file of Nilai;
Var Daf_Nilai : D_Nilai;
Nilai_MHs : Nilai;
I, J, N : integer;

Begin
Clrscr;
assign(Daf_Nilai,'d:\NILAI.txt');
reset(Daf_Nilai);
N := filesize(Daf_nilai);
writeln(' ':24,'List of student examination value');
writeln(' ':24,'---------------------------------');
writeln; writeln(Garis,Garis);
Writeln('| No | Name of student | No Mhs | N1 | N2 | N3 | N4 | N5 | Rata2 |');
writeln(Garis,Garis);
For I := 1 to N Do
Begin
Gotoxy(1,I+6); write('| ',I:2,' | ');
read(Daf_Nilai, Nilai_Mhs);
with Nilai_Mhs Do
Begin
Gotoxy(8,I+6); write(Nama_Mhs);
Gotoxy(34,I+6); write('| ',No_Mhs);
For J := 1 to jumlah_MK Do
Begin
Gotoxy(43+5*(j-1),I+6); write('| ',Nilai_Ujian[J]:2);
End;
Gotoxy(68,I+6); write('| ',Nilai_Rata:5:2,' |');
End
End;
writeln(Garis,Garis);
Close(Daf_Nilai);
readln
end.

And the output is like this