FreePascal.ru

люди, подскажите пожалуйста как слово записать строку в масив по словам...???

Между всеми устранить все знаки препинания и оставить по одному пробелу. Определить среднюю длину слова. Вывести на экран слова, длина которых равна средней длине.

Program z1;
uses crt;
const Alpha=['A'..'Z','a'..'z','0'..'9'];
SPACE=' ';
var s,tmp:string;
i,ctr ...

Подскажите пожалуйста как слово строки(разделенное пробелами)записать в масив строк
1 слово строки - 1-й елемент
2 слово строки - 2-й елемент
и т.д.