Program Input dan Hitung Nilai Siswa dengan Turbo Pascal

     Saya akan sampaikan apa saya pahami dengan array pascal. Karena saya sebenarnya juga masih tahap belajar. Jadi nanti jika ada kesalahan dan kekurangan mohon maklumi dan untuk yang punya kesulitan boleh coret - coret di komen yaa.
Saya kira tidak-lah baik jika saya panjang lebarkan lagi pembukaan ini, maka kita langsung saja coba scriptnya ini.

PROGRAM COBA;
USES CRT;
VAR 
NM  : ARRAY[1..100] OF STRING[15];
NL : ARRAY[1..100] OF INTEGER;
X, JD,JML,NMIN,NMAX  : INTEGER;
TANYA  : CHAR;
RATA    : REAL;

BEGIN 
X:=0;
REPEAT
X:=X+1;
CLRSCR;
WRITELN('DATA KE                : ', X:3);
WRITE('NAMA SISWA             :');READLN(NM[X]);
WRITE('NILAI                  :');READLN(NL[X]);
WRITELN;
WRITE('MASIH ADA DATA Y/T: ');READLN(TANYA);
UNTIL TANYA='T';
JD:=X;
X:=0;
CLRSCR;
WRITELN('            DAFTAR NILAI');
WRITELN('========================================');
WRITELN(' NO      NAMA SISWA           NILAI');
WRITELN('----------------------------------------');
JML:=0;
NMIN:=NL[1];
NMAX:=NL[1];
REPEAT
X:=X+1;
IF NL[X]<nmin THEN NMIN:=NL[X];
IF NL[X]>NMAX THEN NMAX:=NL[X];
WRITELN(X:3,NM[X]:15,NL[X]:15);
JML:=JML+NL[X];
UNTIL X=JD;
WRITELN('========================================');
RATA:=JML/JD;
WRITELN('RATA-RATA           : ', RATA:5:2);
WRITELN('NILAI TERTINGGI     : ', NMAX:3);
WRITELN('NILAI TERENDAH      : ', NMIN:3);


READLN;


END.