упорядочение слов в предложении

[534]

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

Спасите девушку))

P.S. Уважаемые, в прошлой моей теме, я писала, что нужно написать прогу другим способом и вы ее закрыли. Мне нужно переделать код, не используя массива и второй строки, вот тот код

program Project1;

{$APPTYPE CONSOLE}

uses
  system, sysutils;

var
  s, st: string;
  i, j, k: integer;
  mas: array of string;
begin
  write('s = ');
  readln(s);
  s := s + ' ';
  i := pos(' ', s);
  setlength(mas, 1);
  k := 0;
  while i > 0 do begin
    mas[k] := copy(s, 1, pos(' ', s) - 1);
    delete(s, 1, pos(' ', s));
    inc(k);
    setlength(mas, k + 1);
    i := pos(' ', s)
  end;
  st := '';
  for i := 0 to k - 1 do
    if mas[i][1] = mas[i][length(mas[i])] then st := st + mas[i] + ' ';
  for i := 0 to k - 1 do
    if mas[i][1] <> mas[i][length(mas[i])] then st := st + mas[i] + ' ';
  write(st);
  readln;
end.

[eoln]

Что-то знакомое...

program Project1;

{$APPTYPE CONSOLE}

uses
  system, strutils;

var
  s: string;
  i, j: integer;
begin
  write('s = ');
  readln(s);//каждое слово должно отделяться только одним пробелом
  s := s + ' ';

  i := 0;
  j := 1;
  i := strutils.PosEx(' ', s, i + 1);//ищем "второй" пробел (конец первого слова)
  while i > 0 do begin
    if s[i - 1] = s[j] then write(copy(s, j, i - j + 1));//j - начало слова; i-1 - конец слова; если концы совпадают, то выводим слово на экран
    j := i + 1;//перемещаем начало поиска
    i := PosEx(' ', s, i + 1)//ищем следующий пробел (конец следующего слова)
  end;

  i := 0;
  j := 1;
  i := strutils.PosEx(' ', s, i + 1);
  while i > 0 do begin
    if s[i - 1] <> s[j] then write(copy(s, j, i - j + 1));//то же самое при несовпадении концов
    j := i + 1;
    i := PosEx(' ', s, i + 1)
  end;

  readln;
end.

[RUSt88]

Спасите девушку)

а это ох как прокатывает )))