на списки... плз, помоните написать процедуру Опции

[ppp]

помогите пожалуйста написать процедуру...
Дан текст, состоящий из слов, пробелов, и знаков препинания(запятая, точка с запятой, двоеточие) и завершается точкой. текст начинается со слова, а слова отделяются друг от друга пробелом или одним знаком припинания. слова состоят из букв латинского алфавита. найти все слова, состоящие из вхождений не более чем 20 букв.

[volvo]

Если текст задан именно так, как сказано в задании, то вот такую можно функцию для определения сколько в строке слов, длина которых не превышает max_len

Правда? Ну, давай посмотрим:

{ здесь - твоя функция }

var
  sourcetext: string;

begin
  SourceText := 'asd, bdf cdfsw ,4 4 4 4 4 4 4 .derwer.ierwer.f .ge.hwe.i .ler. me';
  writeln(get_count(sourcetext));
end.

Что должен получить (сначала посчитай вручную, потом - запусти программу)...

Ну не вижу я тут 22 слова длиной меньше 6-ти символов... Можно перечислить их все?