Алгоритм на выборку из текста

[o1ps]

Лично для меня блок схема наглядно реализует алгоритм задачи, для этого и прошу. Пожалуйста, будь любезен на скорую руку соорудить буду очень благодарен, пожалуйста. (сдесь вставить нельзя - на мыло ize@bk.ru отправь пожалуйста)

[Shuraken]

begin
|
IsNum := false
Temp := '';
ResultString := ''
SourceString := Text;
|
i = length(SourceString)_true__m1
|false
SourceString[i] = ' '_false__m2
|true
IsNum = false_false__m3
|true
length(temp) = 5_false__m3
|true
ResultString := ResultString + temp + ', ';

:m3
temp := '';
IsNum := false
:m2
temp := temp + SourceString[i];
IsNum := IsNum or SourceString[i] in ['0'..'9']
:m1
ResultString := copy(ResultString, 1, length(ResultString) - 2)
|
end;

Примерно так.