Текстовые задачи

[skyline17]

Вести текст. Определить среднюю длину слова каждого предложения. Из слов не длиннее средней длины составить новый текст.

Саму программу даже не написал(нет идей

Прошу вас написать программу (с объяснениями, если вас не затруднит), даже программе радоваться буду.

[NetSpace]

это набросок. сам-то хоть что-то сделай уж до конца

const n=40;//ну, пусть будет 40 слов
var s:array[1..n] of string;//набор строк
     sred:Integer;//типа среднее значение
     predl:string;
sred:=0;
for i:=1 to n do
begin
sred:=sred+Length(s[i]);
end;
sred:=Round(sred/n);
predl:=' ';
for i:=1 to n do
begin
if(Length(s[i])<sred)then predl:=predl+s[i];
end;
//print(predl);
//Memo1.Lines.Add(predl);//ну, на экран как-нибудь выведешь предложение