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

[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;