подскажите по программе на делфи

[Кнопик]

В предложении все слова начинаются с различных букв. Напечатать ( если можно ) слова предложения в таком порядке, чтобы последняя буква каждого слова совпадала с первой буквой следующего слова.

Вот написала программу, которая разбивает строку на слова и определяет начало и конец слова. Можно ли тут сделать так, чтобы слова ставились в нужном порядке?или программа вообще неправильная?
подскажите пжл(

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  function read_word(const s:string;var i:byte):string;
var w:string;
     l:byte;
begin
   l:=length(s);
 while (i<=l) and (s[i]<=' ') do
  i:=i+1;
 w:='';
 while (i<=l) and (s[i]>' ') do
  begin
   w:=w+s[i];
   i:=i+1;
  end;
 read_word:=w;
end;
procedure get_end_word(s:string; var w:string);
var i,l,n:integer;
    h:byte;

begin
 l:=length(s);
 h:=1;
  while h<=l do
    w:=read_word(s,h);
end;
procedure get_start_word(s:string; var w:string);
var i,l,n:integer;
    k:byte;

begin
 l:=length(s);
 k:=1;
  while k=l do
    w:=read_word(s,k);
end;

[svyd]

Это вроде работает)
Извиняюсь за плохой код)

program new;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
words:array[1..100] of string;
used:array[1..100] of boolean;
n_words:integer;
i,j:integer;

procedure read_words;
var
i,j:integer;
buff:string;
begin
  readln(buff);
  j:=1;
  for i:=1 to length(buff) do
  begin
      if (buff[i]=' ') then
      begin
        if (i<>length(buff))and(buff[i+1]<>' ') then
        begin
          j:=j+1;
        end;
      end
      else begin
        words[j]:=words[j]+buff[i];
      end;
  end;
  n_words:=j;
end;

procedure generate(ans:string;n:integer);
var
i:integer;
begin
  if (n=n_words) then
  begin
    writeln(ans);
    exit;
  end;
  for i:=1 to n_words do
  begin
    if (n=0) then
    begin
      used[i]:=true;
      generate(words[i],1);
      used[i]:=false;
    end else
    begin
      if (used[i]=false) then
      begin
        if (words[i][1]=ans[length(ans)]) then
        begin
          used[i]:=true;
          generate(ans+' '+words[i],n+1);
          used[i]:=false;
        end;
      end;
    end;
  end;
end;

begin
    read_words;
    for i:=1 to n_words do
    begin
      used[i]:=false;
    end;
    generate('',0);
    readln;
end.

[Кнопик]

спасибо огромное