Текст и массив...

[Teen4jump]

Господа, помогите пожалуйста... Проблема такова: необходимо всеми словами из текста заполнить массив. Но как отделить одно слово от другого? Еще пока слабо разбираюсь в работе со строками...
Благодарю за внимание и заранее спасибо)))

[Ozerich]

счас напишу код.ожидай

[Teen4jump]

Спс.. затаился в ожидании)

[Ozerich]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s:string;
slova:array of string;
p:integer;
i:integer;
begin
readln(s);
while(length(s)>0)do
begin
  setlength(slova,length(slova)+1);
  p:=pos(' ',s);
  if(p>0) then
  begin
    slova[length(slova)-1]:=copy(s,1,p-1);
    delete(s,1,p);
  end
  else
  begin
    slova[length(slova)-1]:=s;
    s:='';
  end;
end;
for i:= 0 to length(slova)-1 do
  writeln(i,' - ',slova[i]);
readln;
end.

работает только когда между словами 1 пробел.а если могут стоять больше то ты не стесняйся и говори.