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

uses crt;
var s,s1:string;
    i,k:byte;
begin
writeln('Введите строку из слов, разделенных пробелами');
read(s);
writeln('Введите слово');
read(s1);
if length(s1)>length(s) then write('Слова нет в строке')
else
 begin
  i:=1;
  k:=0;
  while(i<=length(s)-length(s1)-1)and(k=0) do
  if (copy(s,i,length(s1))=s1)
  and((i=1)or(s[i-1]=' '))
  and((i+length(s1)-1=length(s))or(s[i+length(s1)]=' '))then k:=1
  else inc(i);
  if k=1 then write('Слово есть в строке') else write('Слова нет в строке')
 end;
end.

if length(s1)>length(s) then write('Слова нет в строке')
else //иначе
 begin
  i:=1;//начнем искать с начала
  k:=0;//пока нет
  while(i<=length(s)-length(s1)-1)and(k=0) do
  //пока не дошли до конца строки минус длина слова минус 1
  if (copy(s,i,length(s1))=s1)//если есть такой набор символов
  and((i=1)or(s[i-1]=' ')) //и он первый или перед ним пробел
  and((i+length(s1)-1=length(s))or(s[i+length(s1)]=' '))then k:=1
  //и он последний или за ним пробел, нашли слово
  else inc(i); //иначе идем дальше
  if k=1 then write('Слово есть в строке') else write('Слова нет в строке')
 end;
//Так немного сложновато из-за такого
//строка=  мы сторожили
//слово=сто
//этого слова нет, хотя сочетание сто есть
//в строке там было сто чкловек, слово сто есть