Паскаль. Выдёт ошибку "выход за границы диапазона"

[Winterfox]

Вот часть программы, в которой выдаёт ошибку. Нужно в текстовом файле найти все слова "begin", "end" и вывести их на экран. Выдаёт ошибку - выход за границы диапазона, не могу понять где она.

var
    s,slv,s1,s2:string;
    n,i,j,k,p:integer;
    slova:array[1..2] of string;
    File1,File2: text;
begin
   slova[1]:='begin';slova[2]:='end';
   Assign (File2, 'File2.pas'); Rewrite (File2);
   Assign (FIle1, 'File1.pas'); Reset(File1);
   while not eof(File1)
   do begin
   i:=1;
      while not eoln(File1) do begin 
{пока не конец строки}
         read (File1,s);
         while i<=length(s) do begin
         if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then 
{если мы на первой букву в слове}
         begin
            k:=i;s1:='';
            while (s[k]<>' ')or (s[k]<>';') or (s[k]<>'.') or(k<=length(s))do 
{пока не уонец слова}
            begin
               s1:=s1+s[k];
               k:=k+1;
            end;
         end;
         if (s1=slova[1]) or (s1=slova[2]) then 
{если слово равно заданному}
         writeln(s1);
         i:=i+1;
         end;
      end;
      readln(File1);
   end;
close(File2);
close(File1);
readln;
end.

[Stilet]

Вот здесь скорее всего:

   i:=1;
      while not eoln(File1) do begin 
{пока не конец строки}
         read (File1,s);
         while i<=length(s) do begin
         if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then

Ты на первой же итерации требуешь нулевой элемент строки. Не то чтобы это было невозможно, но паскаль скорее всего настроен на проверку такого.
Поэтому либо смени стратегию либо i:=2 изначально выставь