Membuat Tingkatan Nilai Menggunakan Pascal

program tugas_5;
uses crt;

var
    Lagi : char;
    Nilai : integer;
    Grade, NIM, Nama, Jurusan, Matakuliah : string;

begin
clrscr;
    repeat
    textcolor(lightcyan);
        writeln('        Nilai UAS        ');
        writeln('========^^^^^^^^^========');
        write('NAMA           : '); readln(Nama);
        write('NIM            : '); readln(NIM);
        write('Jurusan        : '); readln(Jurusan);
        write('Mata Kuliah    : '); readln(Matakuliah);
        write('Nilai          : '); readln(Nilai);
        case Nilai of
            90..100   : Grade := 'A';
            70..89    : Grade := 'B';
            60..69    : Grade := 'C';
            45..59    : Grade := 'D';
            0..44     : Grade := 'E';
        end;
        writeln('Grade            : ', Grade);
        write('Memasukkan data lagi [y/t ? '); readln(Lagi);
        Lagi := upcase(Lagi);
        writeln;
        writeln('******************');
        writeln;
    until Lagi = 't';
end