Таблица рекордов, Не пойму что не пашет Опции

[1234]

Вот делаю таблицу рекордов (в типизированном файле). Да не могу найти ошибку в алгоритме.
mas-массив типа string;
st-файл типа string.

rocedure Verif(Var F: st;Name,Ochki: String);
{Процедура предназначена для перепроверки рекордов в связи с новым достижением}
     Var Points,Nick,A,Nick1,Points1: mas;
            S                                                : String;
            I,J,Nom,I1,N,Chp                           : Integer;
   Begin
     N:=0;
     While Not Eof(F) Do  {Perezapis' v massiv}
       Begin
         Read(F,S);
         Inc(N);
         A[N]:=S;
       End;
       For I:=1 To N Do
         Begin
           S:=A[I];
           For I1:=1 To Length(S) Do
           Begin
           Chp:=0;
           While Chp=6 Do              {Schitka odnoy stroki}
             Begin
               If S[I1]=' ' Then
                 Inc(Chp);
               If S[I1]<>' ' Then Nick1[I]:=S[I1]+Nick1[I];{Svedeniya uje imeyuschihsya igrokov}
             End;
           While Chp=5 Do
             Begin
               If S[I1]='  ' Then
                 Inc(Chp);                                                    {eto ya seychas razrabativayu}
               If S[I1]<>' ' Then Points1[I]:=S[I1]+Points1[I];
             End;                {Smeschenie na odnu stroku}
             End;
           If Ochki>=Points1[I] Then
             Nom:=I;
           For J:=1 To N-1 Do
             Begin         {Zapisivaem uchitivaya izmeneniya}
                Nick[J]:=Nick1[J];
                Points[J]:=Points1[J];
                While J=Nom Do
                  Begin
                    Nick[Nom]:=Name;
                    Points[Nom]:=Ochki;
                  End;
               End;
            Rewrite(F);
            Reset(F);
            For J:=1 To N Do
              Begin
                S:='';
                S:=J+ '      '+Nick[J]+'     '+Points(J);
                Write(F,S);
              End;
            Close(F);
   End;

[volvo]

Но тут понял, что через текстовый файл будет лучше. Но снова ошибка-Range Check Error.

Прекрасно... Значит, ты менял код (на обработку текстового файла)? Покажи хотя бы строку, на которой происходит Range Check Error...

Что это вообще значит?

Выход за границы массива это значит... Вот и хотелось бы посмотреть, ГДЕ именно, и тогда, возможно, будет понятно ПОЧЕМУ это происходит...