Array satu dimensi variabel

maklum masih belajar pascal.. :(

--------------------------------------------------------------------------------------------------------

Program Constanta_Array_String_best;

Uses winCrt;

type

    n = Array [1..5] of String;

    jml = real;

Const

     Nama : n = ('Algoritma 1 ','Algoritma 2 ','Basis Data 1','Statistik   ','Agama       ');

Var

   nilai : array [1..5] of integer;

   i : Integer;

   tot : integer;

   grade,mhs : char;

Begin

     writeln('Input Nilai Mahasiswa Menggunakan Array');

     writeln('---------------------------------------');

     write('Nama Lengkap Mahasiswa                : ');readln(mhs);

For i:= 1 to 5 Do  

    begin

         Write('Nilai Mata Kuliah (1-10) ',nama[i],' : ');read(nilai[i]);

         tot := tot+nilai[i];

    end;

i:=1;

writeln;

For i:= 1 to 5 Do

    begin

         Write('Mata Kuliah => ',nama[i],' <= dinyatakan : ');

         if nilai[i] > 7 then

            writeln('Lulus')

            else

            writeln('Gagal');

    end;

writeln;

writeln('Total Nilai  : ',tot);

if tot>34 then

   grade:='A'

else

if tot>28 then

    grade :='B'

else

if tot>24 then

    grade:='C'

else

   grade:='D';

writeln('Grade Final  : ',grade);

writeln('                                            Created by : Budi Eko S. / 1102 1940');

readln;

end.

--------------------------------------------------------------------------
ini hasilnya :