Operator not applicable to this operand type

[welcomeTo]

Задание: Рассматривается строка как массив символов. Посчитать количество слов, заканчивающихся на гласную букву.
Выводит ошибку

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string;
len,i,col:integer;
begin
  col:=0;

  s:=Edit1.Text;
  len:= length(s);
  s1:='aеиуэюя';
  for i:=0 to (len-1) do
  begin
    s2:=s[i-1];
    if (s[i] = ' ' and pos(s2,s1)) //ТУТ ОШИБКА
    then inc(col);  
    if (i=len  and pos(s2,s1))
    then inc(col);
  end;
  Label2.Caption := intTOStr(col);
end;

[Valio]

if (s[i] = ' ' and pos(s2,s1))// ТУТ ОШИБКА

Что по вашему должно сравниваться и с чем?
Скобки надо так ставить:

If (...) And (....) Or (...) Then ...

[welcomeTo]

Теперь та же самая ошибка показывает на строку ниже, т.е. вот сюда

then inc(col);

[Valio]

Какойто вообще бредовый код. Чтоб выполнить задание:

Посчитать количество слов, заканчивающихся на гласную букву.

Нужно всеголишь найдя пробел посмотреть что стоит перед ним.

for i := 1 to len do
if (s[i] = ' ') and (pos(s[i-1],s1) <> 0) then inc(col);

При условии что первый не пробел и что разделяет слова лишь один пробел.

[welcomeTo]

А в моем кто что проверяется?)
именно так:

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

найдя пробел посмотреть что стоит перед ним.

PS - Ваш код не проверит последнее слово

[Valio]

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

А в моем кто что проверяется?)
именно так:

PS - Ваш код не проверит последнее слово

Посмотри внимательней... Мой код то работает.... наверно

Ок, после цикла напиши:

if pos(s[len],s1 <> 0) then inc(col);

Теперь всё учитывается.

[Stilet]

Посчитать количество слов, заканчивающихся на гласную букву.

Разбиваем строку на массив слов:http://www.programmersforum.ru/showt...369#post398369
И после уже по массиву проверяем. Можно даже не в массив запихивать а в одну и ту же строковую переменную.
Идея понятна?

[welcomeTo]

Valio,

for i := 1 to len do

if pos(s[len],s1 <> 0)

Насколько я знаю, строковый индекс в Delphi начинается с нуля ===> работать не будет
только i надо с 1 начинать
Stilet, ясна но задачи требуют использования только строк) без массивов. не для себя я делаю эти задачи, так что лучше ограничиться лишь строками.

[welcomeTo]

Может кому нужно будет :

for i:= 1 to len do
  begin
    if (s[i] = ' ') and AnsiContainsText(s1,s[i-1]) then inc(col);
  end;
  if AnsiContainsText(s1,s[len]) then inc(col);
  Label2.Caption := intTOStr(col);

[Valio]

Насколько я знаю, строковый индекс в Delphi начинается с нуля ===> работать не будет

Ваши познания неполны )