Дана фраза, слова разделены пробелом. Определить, сколько в ней наречий и однобуквенных местоимений. (Turbo Pascal)

[brahmanchik]

var i,res1,res2:integer;
s:string;
begin
  read(s);
  if (s[1]<>' ') and (s[2]=' ') then res2:=res2+1;
  for i:=1 to length(s)-2 do
  begin
    if (s[i]<>' ') and (s[i+1]='о') and (s[i+2]=' ') then res1:=res1+1;
    if (s[i]=' ') and (s[i+1]<>' ') and (s[i+2]=' ') then res2:=res2+1;
  end;
  writeln('местоимений-',res2,' наречий-',res1);
end.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Noyabr]

сразу ошибка. S у тебя строковая переменная, а используешь ее как массив

[Luuzuk]

сразу ошибка. S у тебя строковая переменная, а используешь ее как массив

Не смущай человека глупостями. Всё нормально у него с переменной S

brahmanchik: что "правильно"? Код компилируется, а задание где?

[Noyabr]

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

Не смущай человека глупостями. Всё нормально у него с переменной S

brahmanchik: что "правильно"? Код компилируется, а задание где?

а разве не надо её как массив указывать?

а, всё. понял

[brahmanchik]

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

Не смущай человека глупостями. Всё нормально у него с переменной S

brahmanchik: что "правильно"? Код компилируется, а задание где?

Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Требуется:Определить, сколько в ней наречий и однобуквенных местоимений.
Даже сам не заметил как вопрос не написал) вот человек чудо природы)сам над сабой удивляюсь))

[Luuzuk]

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

Вместо "s[i] <> ' '" писать "s[i] in ['А'..'Я','а'..'я']"