Program Input Nilai Mahasiswa

Seorang dosen memberi tugas mahasiswanya untuk membuat listing program pascal dalam rangka praktik materi array.
Inti tugasnya adalah membuat program database sederhana konversi nilai mahasiswa, dimana pada pertama kali BAK menginput :
1.Jumlah data mahasiswa
2.Nim (Nomor Induk Mahasiswa)
3.Nama mahasiswa
4.Nilai pertama
5.Nilai kedua
Hasil yang didapat adalah data mahasiswa, rata-rata nilai dan konversi ke nilai hurufnya.
Ya sekurang dan selebihnya listingnya kayak gini, kalau ada yang kurang mohon maaf sebesar-besarnya yaaa :D.

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.

Demikianlah listing program input nilai mahasiswa, semoga bermanfaat ya. Baca juga program kalkulator sederhana.