Занести слова в массив [Delphi]

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
     var
     i:integer;
     st:string;
     a:array of string;


begin
   st:='я очень люблю программировать на делфи';


      for I := 1 to Length(st) do
        begin
                        
        end;



end.

Как мне занести слова из строки в массив, как елементы?
тойсть что бы я потом мог вывести

for i:=1 to 6 do
begin
writeLn(a[i]);
end;

Результат был бы:

я
очень
люблю
программировать
на
делфи

[goblinyara]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
     i,n:integer;
     st:string;
     a:array[1..6] of string;


begin
   st:='я очень люблю программировать на дэлфи';

  i:=0;
  repeat
    n:=pos(' ',st);
	if n=0 then
	begin
	  a[i+1]:=st;
	  st:='';
	  break;
	end;
    a[i+1]:=copy(st,1,n);
    delete(st,1,n);
    inc(i);
  until length(st)<=1;
  for i:=1 to length(a) do
  writeln(a[i]);
  readln;
end.

как-то так ток я не стал заморачиваться с динамическим массивом, но если надо, то могу, как поужинаю

[Lodyr]

прошу прощения у меня подобная задача, только нужно чтобы он не только слова в массив поместил , но и в другой массив - количество букв этих слов = как это сделать?

[Lodyr]

только все это в Паскале

[psycho-coder]

Испарвил под Delphi

program Project1;

{$APPTYPE CONSOLE}

var
  mas1: array [0..10] of String;
  s, tmp: String;
  i, len: Integer;
  WordEnum: Byte;

begin
  s := 'I very like programing!';

  tmp := '';
  WordEnum := 0;

  len := Length(s);

  for i := 1 to len do
  begin
    if (s[i] = #32) and (s[i+1] <> #32) then
    begin
      Inc(WordEnum);
      tmp := '';
      Continue;
    end;
    tmp := tmp + s[i];
    mas1[WordEnum] := tmp ;
  end;

  for i := 0 to WordEnum do
  begin
    WriteLn(mas1[i]);
  end;

  ReadLn;
end.