turbo pascal 1.5 - larik 1

program larikduadimensi;
uses wincrt;
type
    tipenama=array[1..100] of string;
    tipenilai=array[1..100] of integer;

var
     i,n,maks,min,jum:integer;
     nama:tipenama;
     nilai:tipenilai;
     nama1,nama2:string;
     ratarata:real;
begin
     write('berapa jumlah data yang ingin diinputkan : ');readln(n);
     clrscr;
     writeln('======================================================');
     writeln('   no          nama                     nilai akhir   ');
     writeln('======================================================');

     for i:=1 to n do
     writeln('   ',i:2,'   ..........................         .....    ');

     writeln('======================================================');
     writeln('nilai terbesar  :          oleh ');
     writeln('nilai terendah  :          oleh ');
     writeln('nilai rata-rata : ');

     jum:=0;
     maks:=0;
     min:=100;
     for i:=1 to n do
     begin
          gotoxy(9,3+i);writeln('                          ');
          gotoxy(9,3+i);readln(nama[i]);
          gotoxy(44,3+i);writeln('     ');
          gotoxy(45,3+i);readln(nilai[i]);
          if maks             begin
             maks:=nilai[i];
             nama1:=nama[i];
             end;
          if min>nilai[i] then
             begin
             min:=nilai[i];
             nama2:=nama[i];
             end;
          jum:=jum+nilai[i];
     end;
     ratarata:=jum/n;
     gotoxy(20,5+n);writeln(maks);
     gotoxy(33,5+n);writeln(nama1);
     gotoxy(20,6+n);writeln(min);
     gotoxy(33,6+n);writeln(nama2);
     gotoxy(20,7+n);writeln(ratarata:0:2);

end.