Pascal Array 1

program array1;
Uses crt;
Var
  I         :Longint;
  Nm        :Array[1..100]Of String[25];
  NA,UTS,UAS:Array[1..100]Of Real;
  NPM       :Array[1..100]of Longint;


Begin
  I:=1;
  While(I<=3) Do
      Begin
        clrscr;
        Writeln('Data Ke :',I);
        Writeln('===========');
        write('Inputkan NPM :');Readln(NPM[I]);
        Write('Inputkan Nama Mahasiswa :');Readln(Nm[I]);
        Write('Inputkan Nilai UTS :');Readln(UTS[I]);
        Write('Inputkan Nilai UAS :');Readln(UAS[I]);
        NA[I] :=(UTS[I] + UAS[I])/2;
        I:=I +1;
      End;

  Writeln('------------------------------------------------------');
  Writeln('No     NPM       Nama         Nilai     Nilai    Nilai');
  Writeln('                 Mahasiswa    UTS       UAS      Akhir');
  Writeln('------------------------------------------------------');
      For I:=1 To 3 Do
        Begin
          Writeln(I:3,NPM[I]:10,Nm[I]:10,UTS[I]:10:0,UAS[I]:10:0,NA[I]:10:0);
        End;
  Writeln('------------------------------------------------------');
  readln;
End.