Помогите решить задачи

[gector]

1.Составить программу нахождения минимального элемента одномерного массива.В массиве вставить после минимального элемента число,указанное пользователем.

2.Составить программу,определяющую,являются ли элементы одномерного массива из целых чисел делителями целого числа,заданного пользователем.

3.Написать программу,определяющую число вхождений заданного слова в строку.Строка и слово вводятся пользователем.

[Stilet]

Написать программу,определяющую число вхождений заданного слова в строку

 var e,s:string;k,i:integer;
begin
 s:='петя шьет петя дело петя бьет кучку';
 e:='петя';
 i:=1;while i<=(length(s)-length(e)) do begin
  if copy(s,i,length(e))=e then inc(k);
  inc(i);
 end;
 write(k);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[puporev]

s:='стол столетие престол';
e:='сто';
Ответ=3. А неправильно.