[virgin34]

Помогите разделить строки из edit на слова, скопировать их в ячейки массива строк, там сравнить и вывести упорядоченно в другой edit
Вот, то что смог навоять(turbo delphi 2006):

Код:

{разделение на слова строки из edit и занесение слова в одну ячейку массива}
procedure TForm1.Razdelenie(Sender: TObject);
var
mas:array[0..100]of string;
i,u,kon:integer;
s,s1:string;
begin
s:=edit1.text;
kon:=Length(s);
i:=1;
u:=0;
for i:=1 to kon do
if s[i]=' ' then
  begin
  s1:=copy(s,i,i-1);
  mas[u]:=s1;
  inc(u);
  end;
edit1.Text:=s;
FOR u:=0 to 100 do
mas[u]:=stringgrid1[u];
end;

{сравнение ячеек в массиве и вывод слов по кол-ву символов в edit в порядке убывания}
procedure TForm1.Sortirovka(Sender: TObject);
var
mas:array[0..100]of string;
i,n,change:integer;
begin
i:=0;
n:=100;
change:=1;
FOR i:=0 to 100 do
begin
StringGrid1.Cells[i]:=mas[i];
end;
while change>0 do
  begin
  change:=0;
  i:=1;
    while i<n do
    if mas[i]>mas[n] then
    begin
    edit2.Text:=s;
    s[i]:=s[i+1];
    s[i+1]:=buf;
    inc(change);
    end
                    else inc(i);
  end;
s:=s+mas[i];
edit2.Text:=s;
end;