Coding Pascal - Menampilkan rangkuman nilai

/**
* Copyright (c) 2010 Alvin Aditya H
* GNU GPL License
*
*
*/

uses crt;
type tabel=RECORD
kd:string[8];
mk:string[30];
sks:Integer;
n:char;
end;
var i : integer;
nama:string[20];
npm:string[8];
kelas:string[5];
aw:ARRAY[1..10]OF tabel;
tsks:integer;
mt:integer;
bobot:integer;
jmt:integer;
ipk:real;

BEGIN
clrscr;
tsks := 0;
jmt := 0;
writeln('masukkan Nama : ');readln(nama);
writeln('masukkan NPM : ');readln(npm);
writeln('masukkan Kelas : ');readln(kelas);
for i:=0 to 9 do
begin
writeln('masukkan kode : ');readln(aw[i].kd);
writeln('masukkan mata kuliah : ');readln(aw[i].mk);
writeln('masukkan sks : ');readln(aw[i].sks);
writeln('masukkan nilai(pake huruf gede) : ');readln(aw[i].n);
end;
writeln('Rangkuman Nilai Mahasiswa :');
writeln('---------------------------------------');
writeln('no| Kode | Mata Kuliah | SKS | Nilai |');
for i:=0 to 9 do
begin
writeln('|',i+1,'|',aw[i].kd,'|',aw[i].mk,'|',aw[i].sks,'|',aw[i].n,'|');
writeln('------------------------------------------------------------');
end;

for i:=0 to 9 do
tsks := tsks + aw[i].sks;
for i:=0 to 9 do
begin
case aw[i].n of
'A': bobot:= 4;
'B': bobot:= 3;
'C': bobot:= 2;
'D': bobot:= 1;
'E': bobot:= 0;
end;
mt := aw[i].sks*bobot;
jmt := jmt+mt;
end;
writeln('Total SKS yang diperoleh : ',tsks);
ipk := jmt/tsks;
writeln('Indeks prestasi kumulatif :',ipk);
readln;
END.