Никак не разберусь с ошибкой выхода за границы диапазона.

[Winterfox]

Выскакивает ошибка 256 - ошибка диапазона изменения индекса 0..225.
В этой части программы нам нужно найти в тексте заданное слово - 'if'. Помогите, пожалуйста, понять в чём ошибка.

var
   s,s1,s2:string;
   File1,File2: text;
   i,k,p: integer;
   slova:array[1..51] of string;
begin
   slova[1]:='if'; {требуемое слово}

   Assign (File2, 'File2.pas'); Rewrite (File2);
   Assign (FIle1, 'File1.pas'); Reset(File1);
   while not eof(File1) do begin {пока не конец файла делаем}
      read(File1,s); {читаем первую строку файла}
      i:=1;
      while i<=length(s) do begin {пока не дошли до конца строки делаем}
         if (s[i]<>' ') and ((s[i-1]=' ')or(i=1)) then begin
         {если мы на первой букве в слове или в самом начале строки}
            k:=i;
            while ((s[k]<>' ') or (s[k]<>';') or (s[k]<>'.') or (s[k]<>',') or (s[k]<>'(')) do begin
{пока не встретили символ, означающий конец слова, записываем слово}
               s1:=s1+s[k];
               k:=k+1;
            end;
            if (s1=slova[1]) then {если слово равно заданному}
            p:=p+1; {считаем его количество повторений}
         end;
         if p<>0 then begin  {если слово есть в тексте, то выводим его и количество повторений}
            writeln(s1,p); p:=0;
         end;
      s1:='';
      i:=i+1;
      end;
      readln(File1,s);
   end;
   close(File2);
   close(File1);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[veniside]

ошибка та же, ответ тот же

[Winterfox]

ну так даже если я вместо i попробую поставить 2. Всё равно такая же ошибка выходит.

[veniside]

ну ок, а кто сказал, что все строки обязательно заканчиваются этими символами?

            while ((s[k]<>' ') or (s[k]<>';') or (s[k]<>'.') or (s[k]<>',') or (s[k]<>'(')) do begin
{пока не встретили символ, означающий конец слова, записываем слово}
               s1:=s1+s[k];
               k:=k+1;
            end;

k безконтрольно выходит за длину s

[Winterfox]

Изменил условие окончания слова на:

while ((s[k]<>' ') or (s[k]<>';') or (s[k]<>'.') or (s[k]<>',') or (s[k]<>'(') or (k<=length(s))) do begin

Ошибка где-то в нём. Когда я оставляю одно условие - никакого переполнения нету. Значит я неправильно записал условие цикла. Каак следует оформить условие, чтобы устранить ошибку?

[veniside]

например, так:

while ( (k <= length(s)) and not (s[k] in [' ', ';', '.', ','. '(']) ) do

[Winterfox]

Благодарю.