Строки, длина слов, работа с заданными буквами

[microlab]

составить программу, которая вводит предложение и выводит те его слова которые 1) имеют заданную длину 2) имеют длину больше заданной 3)...меньше заданной 4) начинается с заданной буквы 5) заканчивается на задананную букву

[spein]

Когда-то писал функцию для разбития строки на слова:

     writeln('Type your string: ');
     readln(str);
     while(pos(' ', str) <> 0) do begin
                 i:=i+1;
                 a[i]:=copy(str, 0, pos(' ', str));
                 delete(str, 0, pos(' ', str));
     end;

Далее для проверки например по первому условию:

for i:=1 to 20 do
 if(length(a[i]) > 5) then writeln(i, ' element has length > 5');