Если первая буква второго слова совпадает с последней буквой третьего слова, поменять местами второе и третье

var
  text, ntext, sl: string;
  k: integer;
  predl: array of string;
 
 
begin
  text := 'Мама ела каше и всё хорошо';
  ntext := text;
  for var i := 1 to length(text) do
  begin
    if text[i] = ' ' then Inc(k);
  end;
  
  Inc(k);
  SetLength(predl, k);
  
  for var i := 0 to k-1 do
  begin
    sl := Copy(text, 1, Pos(' ', text)-1);
    predl[i] := sl;    
    Delete(text, 1, Pos(' ', text));
    if (i=k-1) then 
    begin
      sl := text;
      predl[i] := sl;
    end;
  end;
  
  if predl[1][1] = predl[2][Length(predl[2])] then 
  begin
    sl := predl[1];
    predl[1] := predl[2];
    predl[2] := sl;
  end;
  
  sl := '';
  
  for var i := 0 to k-1 do
  begin
    sl := sl + predl[i] + ' ';
  end;
  
  Writeln(ntext);
  Writeln(sl);
end.

  text := ReadlnString('Введите текст: ');