Удалить все слова с длиной, большей заданной длины

[Broken Angel]

Есть небольшая проблемка. Нужно написать прогу по удалению всех слов, которые больше заданной длины. Начало у меня есть, а что писать дальше - не знаю. Помогите, пожалуйста!
Вот начало:

Program VMV;
uses crt;
const
M=[' ',',','.',';',':','-','=','+'];
var i,Pos2,CntWord,CntRes,d:integer;
    StrSrc,StrWord :string;
begin
write('Введите максимальную длину слова: ');
readln(d);
 begin
 repeat
    Writeln('Введите строку: ');
    Readln(StrSrc);
    CntWord := 0;
    CntRes := 0;
    Pos2 := 0;
    StrWord := '';
    for i := 1 to Length(StrSrc) do begin
      if StrSrc[i] in M then Continue;
      StrWord := StrWord + StrSrc[i];
      if i = Length(StrSrc) then
        Pos2 := i
      else if StrSrc[i + 1] in M then
        Pos2 := i;
      if Pos2 > 0 then begin
        Inc(CntWord);
        if CntWord = 1 then begin

[Ghost of Night]

Во-первых текст оформлять нужно.
А во-вторых:
Берешь строку, забиваешь в массив слова, а потом сравниваешь длины этих слов с нужным тебе числом, заменяешь слово(выбранный элемент массива) на символ ''. и всё.

[Broken Angel]

Да сам порядок понятен. Мне бы узнать, как "перейти" на сравнение следующего слова, если данное слово меньше заданного максимума...

[Ghost of Night]

Слова "сидят" в массиве, ты сравниваешь элементы массива, т.е. длину слов.
Организуй цикл, от 1 до последнего эл. массива и сравнивай