Turbo Pascal program menu

uses wincrt;
var NB : Array [1..25] of string[25];
    MRK : array [1..25] of string[25];
    HRGA : Array [1..25] of integer;
    JB : array [1..25] of integer;
    JH : array [1..25] of integer;
    jum,total: real;
    i,banyakbarang : byte;
Begin                                     
     Clrscr;
     {Bagian Membaca Data}
     i:=1;
     Writeln('     Inputkan Data Mahasiswa         ');
     Writeln('=====================================');
     Write(' Nama barang  =');Readln(NB[i]);
   
     While NB[i] <>'PANE' do
     Begin
          write(' MEREK       ='); readln(MRK[i]);
          Write(' HARGA       ='); Readln(HRGA[i]);
          write(' JUMLAH BELI ='); readln(JB[i]);
          jum:=HRGA[i] * JB[i];
          WRITELN('JUMLAH HARGA =',jum:3:0);
          Inc(i);
          Writeln('==================================');
          Write(' Nama BARANG  ='); Readln(NB[i]);
        
     end;

     banyakbarang:=i-1;

     {Bagian Menghitung Nilai Rata-Rata}

     jum:= HRGA[i] * JB[i];
     for i:=1 to banyakbarang Do
         jum:= HRGA[i] * JB[i];
         total:=jum*0.1;

     {Bagian Cetak Hasil}
     {Bagian Judul}
     Clrscr;
     Writeln('        DAFTAR NILAI UJIAN PASCAL ANAK AMIK MAHAPUTRA PEKANBARU         ');
     Writeln('======================================================================= ');
     Writeln(' NAMA BARANG    MEREK    HARGA     JUMLAH BELI      JUMLAH HARGA ');
     Writeln('=======================================================================');

     {Bagian Data}
     For i := 1 To i Do
     begin
          gotoxy(2,4+i); Write(NB[i]);
          gotoxy(18,4+i); write(MRK[i]);
          gotoxy(27,4+i); Write(HRGA[i]);
          gotoxy(37,4+i); write(JB[i]);
          gotoxy(55,4+i); write(JH[i]);
          begin
     jum:= jum * JH[i];
     WRITELN;

     {Bagian Penutup}
     Writeln('========================================================================');
     Writeln(' TOTAL BAYAR =',total:3:0);
End;
END;
end.