Строковые переменные Опции

[Очередная]

??? Привет! Чайник просит помощи у умных людей!!!
Помогите решить задачу на строковые переменные. Задача: Сколько одинаковых слов в предложении, введенном с клавиатуры? Вывести на экран слова и их количество. Заранее большое спасибо

[trminator]

По-моему, нет... надо же где-то запоминать,какое слово сколько раз встречалось.
А вообще, возможно, пригодится примерно такая структура:

Код

type TWordInfo = record
 s: string; {Само слово}
 count: byte; {Сколько раз оно встречалось}
end;
var a: array[1..10] of TWordInfo;

То есть если слово не встречалось, добавляем в массив A запись, поле s - это слово, поле count = 1. А если встречалось (перед добавлением пройтись по массиву и проверить, нет ли записи, поле s в которой совпадает с новым словом), то просто увеличить значение count там.