Помогите с задачей, Паскаль

[menlo]

Мне тут задали 5 задач,я 4 сделал ,а вот с последние проблема

Написать вариант функции поиска N-го вхождения подстроки T в строку S с дополнительным параметром, указывающим игнорировать или нет различия в заглавных и прописных буквах.

[_Dmitry]

Используйте функцию m:=pos(T,S), если T найдена в S (m <> 0), то удаляйте из S m символов delete(S,1,m). Повторяйте алгоритм, пока m не станет равным нулю. Сколько раз отработал данный алгоритм - столько раз подстрока T входит в строку S.
Если нужно игнорировать различие в регистрах букв, то делайте в строках S и T все буквы, например, прописными (AnsiUpperCase(const S: string): string;) и запускайте приведенный алгоритм.

[zetrix]

Используйте функцию m:=pos(T,S), если T найдена в S (m <> 0), то удаляйте из S m символов delete(S,1,m). Повторяйте алгоритм, пока m не станет равным нулю.

недавно сам пропарился на этом, поэтому смотрите пример строки: qqqqqqqqqqwwwwwwwwww, по вашему алгоритму будет найдено 10 вхождений строки qw

[_Dmitry]

Не соглашусь. Данная программа дает единичку

procedure TForm1.Button1Click(Sender: TObject);
var
  S,T: string;
  m,n: integer;
begin
  S:='qqqqqqqqqqwwwwwwwwww';
  T:='qw';
  n:=0;
  repeat
    m:=pos(T,S);
    if m <> 0 then
      begin
        delete(S,1,m);
        n:=n+1;
      end;
  until m = 0;
  Edit1.Text:=IntToStr(n);
end;