найти в тексте все вхождения заданной последовательности

[Delion]

Здравствуйте, помогите написать программу на паскале.
Вот условие:

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

Заранее благодарен.

[Stilet]

const q='hello World'; w='world';
var i:integer; s:string;
begin
 s:=q;
 i:=pos(UpCase(w),UpCase(s));
 repeat write(i:5); delete(s,1,i+1);i:=pos(UpCase(w),UpCase(s));until i=0;
end.

Чтоб было чивствительно к регистру - убрать UpCase.