работа со строками в Delphi

[Anton94.by]

Помогите написать часть кода для данных заданий:
1) Дан текст. Найти множество всех слов, которые встречаются во всех предложениях текста.
2) Для каждого из слов заданного предложения указать, сколько раз оно встречается в предложении.

часть кода для второй программы ( не знаю правильно ли):

k:=0;
while pos(sl,s)>0 do
begin k:=k+1;
delete(s,pos(sl,s),length(sl));

[Vanta11a]

1) Ну так ответ в вопросе: множество! Ищешь слова в первом предложении, нашел - запихиваешь во множество. Ищешь слова следующего предложения, пихаешь их во второе множество, находишь пересечение. Повторить пока текст не кончится.
2) Не правильно. Нашел первое слово, запомнил его, из строки выпилил - погнал цикл поиска по предложению, находишь это слово - опачки, инкремент счетчика, выпилил найденное, ищешь дальше. До тех пор, пока строка не станет состоять из пробелов.