преобразовать строку в массив

Ответ от Александр Погребняк[гуру]
Если между словами один пробел, то так:
Var s, g: string;
w:array[1..100] of string;
p,i: integer;
Begin
Readln(s);
s:=s+' ';
while pos(' ', s) <> 0 do
begin
p:=p+1;
w[p]:=copy(s,1,pos(' ', s)-1);
delete(s,1,pos(' ', s));
end;
for i:=1 to p do
writeln(w[i],' ');
End.
Александр Погребняк
(82280)
Я просто привел элементарный пример, когда между словами ТОЛЬКО пробел.
Можно предусмотреть случай, когда между словами ЛЮБОЙ знак препинания. Тогда алгоритм будет другим.