[stil]

Кто может объяснить что не так

Код:

c:Inc(i);
        j:=PosEx('|',s,k);
        if j<>0 then begin
          QuestArray[i]:=Copy(s,k,j-1);
          k:=j+1;
          goto c;

1 раз нормально
остальные неправильно