Delphi Строка в массив

[Nerotim]

Помогите разобраться.

Задача
Ввести строку из нескольких слов. Образовать массив слов и вывести его на экран.

Как именно сделать массив из строки?

[Stilet]

http://www.programmersforum.ru/showt...369#post398369

[Sciv]

Разбить готовую строку на слова, а слова поместить в массив:

const n=10;
var s: string;
    i: integer;
    m: array [1..n] of string;
begin
  Write('Введите исходную строку: ');
  ReadLn(s);
  i:=1;
  While (pos(' ',s)>0) or (i<=n) do
    if pos(' ',s)=1 then
      delete(s,1,1)
    else begin
      m[i]:=copy(s,1,pos(' ',s)-1);
      delete(s,1,pos(' ',s));
      inc(i);
    end;
  for i:=1 to n do WriteLn(m[i]);
  ReadLn;
end.

Как-то так.

[Nerotim]

В этой проге почему то последнее слово исчезает когда результат выходит.