В чем ошибка? Пишет "Индекс находится вне границ массива" вроде 17

В чем ошибка? Пишет "Индекс находится вне границ массива" вроде 17 сторока
program test;
uses crt;
var s, s1:string;
n, f, i, j, len:integer;
begin
clrscr;
writeln('введите предложение');
readln(s);
s:=' '+s;
writeln('ведите приставку');
readln(s1);
len:=length(s1);
n:=0;
f:=0; while jlt;=length(s) do
begin
if s[j]=' ' then
begin
for i:=1 to len do
if s[j+i]lt;gt;s1[i] then f:=1;
if f=0 then begin n:=n+1; j:=j+len; end
else j:=j+1; end;
end;
writeln('n=',n);
readln;
end.

В выделенной строке выдает ошибку

Олеся Гишбелия 2019-05-09 22:43:27

а что вводите?