Привет всем помогите кто решить задачу

дано предложение,в котором слова отделяются друг от друга запятой и пробелом или несколькими пробелами.В конце слова стоит точка.Необходимо:
1)подсчитать количество различных слов в предложении;
2)удалить из предложения все слова,имеющие две буквы'o'.

FAQ : Строки
Разбиение строки на слова, все способы

+ поиск по форуму, будут конкретные вопросы, задавай, подобные задачи уже решались, ищи.

я весь форум перерыл но ничего похожего не нашел!

Тебе дали прямые ссылки во втором посте! Нажми хотябы на них...

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

program SJenya;
uses crt;
var
st:string;
o,Io,prob,i,k:byte;
begin
clrscr;
write('WWEDITE STROKU: ');
readln(st);
k:=1;  o:=0;
for i:=1 to length(st) do begin
    if st[i]=' ' then k:=k+1;
writeln('KOL-WO SLOW W STROKE: ', K);
prob:=pos(' ',st);
for i:=1 to prob do
if st[i]='o' then begin Io:=i;
o:=o+1; end;
if o=2 then
delete(st,1,prob);
end;
writeln(st);
readkey;
end.

Пользуйся тегами

Не проверял задачу, но сразу бросается в глаза, у тебя в задании сказано



А теперь подумай что будет если ты будешь разделять свои слова несколькими пробелами ? Значение кол-ва слов будет не верным, а чем тебе не понравилась процедура GetWords из нашего FAQ ?

И вот тебе правильная ссылка На очень полезный раздел. Будь добр сходи туда.

плиз помомогите отредактировать прогу бо уже нет сил не хочет правильно работать

А разберешься?

Ну, держи

Cпасибо за прогу! Было немног сложно но я разобрался