Pascal input nilai mahasiswa

Uses WinCrt;
Const
garis='=========================================================================';
Var
nim : Array [1..10] Of String;
nama : Array [1..10] Of String;
absen : Array [1..10] of integer;
quiz : Array [1..10] of integer;
tugas : Array [1..10] of integer;
latihan : Array [1..10] of integer;
mid : Array [1..10] of integer;
uas : Array [1..10] of integer;
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
  ClrScr;
  writeln;
  writeln(garis);
  Writeln ('===========SELAMAT DATANG DI PROGRAM MENGHITUNG NILAI MAHASISWA==========');
  Writeln ('=================DI RANCANG OLEH Design by : TRI SUSANTO=================');
  writeln ('===========================AMIK MAHAPUTRA 11 MI 5========================');
  writeln(garis);
  writeln;
  writeln;
  Write ('                  BERAPA DATA YANG MAU ANDA PROSES ??: ');Readln (n);
  For i:= 1 To n Do
  Begin
    ClrScr;
    writeln('==========silahkan masukkan data mahasiswa yg akan di proses============');
    writeln('============================DENGAN BENAR================================');
    GotoXY(20,3+1); Write('Masukan data yang Ke-->',i:2);
    GotoXY(10,5+1); Write('NIM :'); Readln(nim[i]);
    GotoXY(10,7+1); Write('Nama :'); Readln(nama[i]);
    GotoXY(10,9+i); Write('absen :'); Readln(absen[i]);
    GotoXY(10,11+i); Write('quiz :'); Readln(quiz[i]);
    GotoXY(10,13+i); write('tugas:'); readln(tugas[i]);
    GotoXY(10,15+i); write('latihan:'); readln(latihan[i]);
    GotoXY(10,17+i); write('mid:'); readln(mid[i]);
    GotoXY(10,19+i); write('uas:'); readln(uas[i]);
  End;
  ClrScr;
  writeln('    ===             program menghitung jumlah nilai siswa                 ===');
  writeln('    ===                  di design oleh : tri susanto                     ===');
  writeln('    ===                 AMIK MAHAPUTRA PEKANBARU RIAU                     ===');
  GotoXY(5,4); Write(Garis);
  GotoXY(5,5); Write ('No');
  GotoXY(9,5); Write ('NIM');
  GotoXY(18,5); Write ('Nama');
  GotoXY(25,5); Write ('Absen');
  GotoXY(32,5); Write ('Quis');
  GotoXY(39,5); write ('Tugas');
  GotoXY(46,5); write ('Latihan');
  GotoXY(55,5); write ('Mid');
  GotoXY(60,5); write ('Uas');
  GotoXY(67,5); Write ('Rata');
  GotoXY(74,5); Write ('Abjad');
  GotoXY(5,6); Write (Garis);
  bar := 7;
  For i:= 1 To n Do
  Begin
    jum:=(absen[i]+quiz[i]+tugas[i]+latihan[i]+mid[i]+uas[i])/6;
    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';
    GotoXY(5,bar); Writeln(i:2);
    GotoXY(9,bar); Writeln (NIM[i]);
    GotoXY(18,bar); Writeln (NAMA[i]);
    GotoXY(25,bar); Writeln (absen[i]);
    GotoXY(32,bar); Writeln (Quiz[i]);
    GotoXY(39,bar); writeln (tugas[i]);
    GotoXY(46,bar); writeln (latihan[i]);
    GotoXY(53,bar); writeln (mid[i]);
    GotoXY(60,bar); writeln (uas[i]);
    GotoXY(67,bar); Writeln (jum:5:1);
    GotoXY(74,bar); Writeln (tl);
    bar:=bar+1;
  End;
  GotoXY(5,bar+1);Writeln(garis);
  Readln;
End.