Задача. Строки. Delphi консольная.

[Atoris]

{ Ввести строку. Сформировать из неё новую строку из слов, в которых }
{ гласные буквы чередуются с согласными }

[Stilet]

Допустим.
Покажи с чего начал.
Ведь способов решить твою задачу много.

[Atoris]

program Stroka;

{$APPTYPE CONSOLE}
{ Ввести строку. Сформировать из неё новую строку из слов, в которых }
{ гласные буквы чередуются с согласными. Удалить последнее слово     }             
uses
  SysUtils;

const
  Glas = ['a','e','i','o','u','y'];
  Sogl = ['a'..'z'] - Glas;

var
  S: String;         // Исходная строка
  NewS: String;      // Измененная строка
  I, J: Integer;     // Параметры циклов
  K, O: Integer;     // Служебные переменные

begin

  WriteLn('Введите строку: ');
  ReadLn(S);


  // Удаление двойного пробела
  while Pos('  ', S) <> 0  do
    Delete(S, Pos('  ', S), 1);

  // Удаление из строки последнего слова
  O := 0;
  S := Trim(S);
  for I := Length(S) downto 1 do
    if S[I] <> ' ' then
    begin
      Inc(O);
    end
    else
      break;
  O := Length(S) - O;
  Delete(S, O, Length(S));

  // Преобразование строки
  J := 1;
  K := 1;
  S := Trim(S);
  for I := 1 to Length(S) do


  // Вывод результата

  if Length(NewS) <> 0 then
  begin
    WriteLn('Измененная строка: ');
    WriteLn(NewS);
  end
  else
    WriteLn('Все слова в исходной строке совпадают с последним');
  ReadLn; ReadLn;
end.

From Stilet: У нас принято код для Си и Делфи оформлять тегом по кнопке #. прошу соблюдать правила уважая форумчан.


Ну вот... преобразование строки - и есть основная задача.
Я не могу разобраться с алгоритмом. А то , что я пробовал не работает. Прошу вашей помощи

[Stilet]

Шож так все сложно?
Вот тебе разбивка на слова:http://www.programmersforum.ru/showt...369#post398369

А вот тебе пример для функции выяснения подходит слово или нет:

 var s:string;i:integer;b:boolean;
begin
 s:='solovo';b:=true;
 i:=1;while(i<(length(s)-1))and(b) do begin
  if (
     (s[i] in ['a','e','y','u','i','o'])
  and
     (s[i+1] in ['a','e','y','u','i','o'])
   )
   or(
     (not (s[i] in ['a','e','y','u','i','o']))
   and
     (not (s[i+1] in ['a','e','y','u','i','o']))
   )
  then
   b:=false;
  inc(i);
 end;
 if b then write('ok') else write('no');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смекаешь что нужно делать?
Пройдись в цикле, разбей строку на слова, далее по каждому слову пройдись этим кодом чтоб выяснить подходит слово или нет.

[Atoris]

Сообщение от Stilet

Шож так все сложно?
Вот тебе разбивка на слова:http://www.programmersforum.ru/showt...369#post398369

А вот тебе пример для функции выяснения подходит слово или нет:

 var s:string;i:integer;b:boolean;
begin
 s:='solovo';b:=true;
 i:=1;while(i<(length(s)-1))and(b) do begin
  if (
     (s[i] in ['a','e','y','u','i','o'])
  and
     (s[i+1] in ['a','e','y','u','i','o'])
   )
   or(
     (not (s[i] in ['a','e','y','u','i','o']))
   and
     (not (s[i+1] in ['a','e','y','u','i','o']))
   )
  then
   b:=false;
  inc(i);
 end;
 if b then write('ok') else write('no');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смекаешь что нужно делать?
Пройдись в цикле, разбей строку на слова, далее по каждому слову пройдись этим кодом чтоб выяснить подходит слово или нет.

Спасибо , получилась. Только в While в условии -1 не нужна иначе "last" проходит