input nilai

Program Input_nilai_mhs;
Uses WinCrt;
Const
garis='-------------------------------------------------------------------------------';
Var
nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}
nim : Array [1..10] Of String [8];
nama : Array [1..10] Of String [50];
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
ClrScr;
{ pemasukan data dalam array }
Writeln ('Maximize dulu windows anda,');
Writeln ('untuk mendapat hasil yang maksimal!!!');
Write ('Berapa Data Mahasiswa yang aka diinput :');
Readln (n);
For i:= 1 To n Do
Begin
ClrScr;
GotoXY(30,4+1); Write('Data Ke-:',i:2);
GotoXY(10,5+i); Write('NIM :'); Readln(nim[i]);
GotoXY(10,6+i); Write('Nama :'); Readln(nama[i]);
GotoXY(10,7+i); Write('Nilai 1 :'); Readln(nil1[i]);
GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil2[i]);
End;
{ proses data dalam array }
ClrScr;
GotoXY(5,4); Write(Garis);
GotoXY(5,5); Write ('No');
GotoXY(9,5); Write ('NIM');
GotoXY(18,5); Write ('Nama');
GotoXY(38,5); Write ('Nilai 1');
GotoXY(45,5); Write ('Nilai 2');
GotoXY(52,5); Write ('Rata');
GotoXY(59,5); Write ('Abjad');
GotoXY(5,6); Write (Garis);
{ proses Cetak isi array dan seleksi kondisi }
bar := 7;
For i:= 1 To n Do
Begin
jum:=(nil1[i]+nil2[i])/2;
If jum>= 90 Then tl:='A'
Else
If jum>80 Then tl:='B'
Else
If jum>60 then tl:='C'
Else
If jum >50 Then tl:='D'
Else
tl:='E';
{ cetak hasil yang disimpan di array dan hasil }
{ penyeleksian kondisi }
GotoXY(5,bar); Writeln(i:2);
GotoXY(9,bar); Writeln (NIM[i]);
GotoXY(18,bar); Writeln (NAMA[i]);
GotoXY(38,bar); Writeln (NIL1[i]:4);
GotoXY(45,bar); Writeln (NIL2[i]:4);
GotoXY(52,bar); Writeln (jum:5:1);
GotoXY(59,bar); Writeln (tl);
bar:=bar+1;
End;
GotoXY(5,bar+1);Writeln(garis);
Readln;
End.