Programa de indices ajuda

[caljinha]

ola pessoal to criando um programa de indices que pegam ate 3000 leituras por vez porém logo a primeira tentiva ele so aceita de for colocado ate 650 e o calculo do indice esta dando um erro que nao estou conseguindo identificar onde errei. obrigado por qualquer coisa. tai meu codigo. ao lado das declaracoes sao pra que serve as variaveis pra melhor compreender

program indice;
uses crt;
var t:array[1..18] of integer;   {vetor do total}
      l:array[1..18] of integer;   {vetor do lido}
      rz,q,li,lido,quant: integer; {[B]rz[/B]=codigo diario, [B]q[/B]=soma de total}
      i:real;                           {[B]li[/B]=soma de lido ,[B]quant[/B]=contador de loop}                                        {[B]i[/B]=indice final} 



begin
  clrscr;
  writeln('programa pra indice');
  quant:=0;
  for rz=1 to 18 do begin
    gotoxy(1,2);
    write('total de leituras', rz)
    gotoxy(20,2);
    readln(t[rz]);
    write('lido');
    gotoxy(20,3);
    readln(l[rz]);
    q:=q+t[rz];
    li:=li+l[rz];
    i:=100*(li)/q;
    gotoxy(  20,5);
    writeln('seu indice atual é',   i:3:2,  '%');
  end;
  readkey;
end.