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

[ppp]

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

[andriano]

Во-первых, неизвестно, что такое текст, в каком виде он представлен.
Если это строка, то разумнее пользоваться операциями над строками, если массив символов или файл, целесообразнее делать конечный автомат.
Во-вторых, что делать с одинаковыми словами? Если слово встретилось дважды и более, учитывать все вхождения или только единственное? И какте слова считать одинаковыми: "HUMAN" и "human" - это разные или одинаковые слова?
В-третьих, что делать, если в тексте попадется символ, не входящий в список допустимых?
В-четвертых, есть ли известные ограничения на длину текста или максимальное количество слов?

[Гость]

Во-первых, неизвестно, что такое текст, в каком виде он представлен.
Если это строка, то разумнее пользоваться операциями над строками, если массив символов или файл, целесообразнее делать конечный автомат.
Во-вторых, что делать с одинаковыми словами? Если слово встретилось дважды и более, учитывать все вхождения или только единственное? И какте слова считать одинаковыми: "HUMAN" и "human" - это разные или одинаковые слова?
В-третьих, что делать, если в тексте попадется символ, не входящий в список допустимых?
В-четвертых, есть ли известные ограничения на длину текста или максимальное количество слов?

в теле программы написана строка, что то наподобии (SourceText := 'asd, bdf cdfsw ,4 4 4 4 4 4 4 .derwer.ierwer.f .ge.hwe.i .ler. me') ...Пользователь ничего вводить не будет!... Задание написать функцию, которая будет распозновать слова из строки, обязательно слова из латинских букв. и как я понял, задание заключается в том чтобы проссумировать (inc(i)) все слова длинной < или = 20 символов. Идет проверка посимвольно, если встречается пробел или один из знаков препинания (, ; или пробел, то мы разумеется ничего не сумируем и переходим проверять слова далее..... PS: по этому заданию должен быть написан листинг функции на сдачу экзаменатору... никаких замутов.
Как я понимаю начало может выглядеть примерно так:

function Letters(SourceText :string):string;
var
    StrLetter :string;
    i :integer;
begin
    StrLetter := '';
    i := 1;
	while i < Length(SourceText) do begin
    	if SourceText[i] in ['a'..'z', 'A'..'Z'] then begin
            if i+1 <= Length(SourceText) then begin
                                .
                                . {не знаю как дальше}
                                .

			               	Inc(i);
            end;
        end;