А можно по подробнее что это за strtok???
Наверно вам нужно это
VAR
X : string; текстовая переменная
x1 : array [1..10] of string; массив слов
i, c : integer; для цикла
BEGIN
c := 1;
For i := 1 to length(x) do If x[i] <> ' ' Then x1[c] := x1[c] + x[i]
Else Begin
c:= c + 1;
i := i + 1;
End;
End;
Как то так.
Прим. Массив слов лучше сделать динамический, могут быть скрыты ошибки, я немного под градусом :-) Всех с праздником
|