Двумерный массив.Паскаль

[hohoma]

Задание:дан текст.найти количество слов оканчивающиеся на о
Решение:

var s:string;
i,k:integer;
begin
writeln('Введите текст');
readln(s);
s:=' '+s;
k:=0;
for i:=1 to length(s) do
if(s[i-1]=' ') and (s[i]='о') then k:=k+1;
writeln('Количество=',k)
end.

Но не работает подскажите пожалуйста где ошибка??

[eoln]

А при чём тут двумерный массив?
А может тут вовсе и Паскаль ни при чём
s[i-1] - тут в ноль уходит... и по логике подобное подходит для слов начинающихся с о
Также надо учесть, что в некоторых паскалях (особенно старых) может возникнуть проблема с русскими буквами

Один из вариантов такой:

var
  s: string;
  i, d: integer;
const
  rz = [' ', '.', ','];//разделители между словами - пробел, точка или запятая
begin
  writeln('input: ');
  readln(s);
  //s := 'Hello, my name is Ysamo. O_o )) ko';
  s := s + '.';
  d := 0;
  for i := 1 to length(s)-1 do
    if s[i] = 'o' then
      if s[i+1] in rz then inc(d);
  writeln ('count: ', d);
  readln
end.

[hohoma]

rz,input,inc, in rz мы этого не проходили нужен более простой вариант

[NetSpace]

var
  str: string;
  i, k: integer;
begin
  str = 'eto, net okolo togo. da ploho .';
  k := 0;
  for i := 1 to length(str) do
  begin
     if(s[i] = 'o')and((s[i+1]=' ') or (s[i+1]='.') or (s[i+1]=',')) then k:=k+1;
  end;
  writeln ('slov: ', k);
  readln
end.

ну вот тебе вариант без input, без rz, без Inc.

[hohoma]

str?? это чего??)
а на s это можно заменить??

[NetSpace]

да, можно. это имя строковой переменной. я по-началу тоже боялся отступить от тех обозначений, которые были даны в школе, скорее, не было нужды придумывать своё. писал всюду A, B, C, D, N, K, V... а потом понял, что не стоит цепляться за прошлое, и начал экспериментировать.
так что в этой программе исправь str на s, а в другой уже попытайся придумать свои имена.

[hohoma]

writeln('Введите текст');
readln(s); а вот эта строка не нужна??
я попробовала вот так:

var
  m,s: string;
  i, k: integer;
begin
  m:= 'eto, net okolo togo. da ploho .';
  k := 0;
  for i := 1 to length(m) do
  begin
     if(s[i] = 'o')and((s[i+1]=' ') or (s[i+1]='.') or (s[i+1]=',')) then k:=k+1;
  end;
  writeln ('slov: ', k);
  readln
end.

пишет:Ошибка времени выполнения: Индекс находился вне границ массива.

[NetSpace]

сделай тогда не length(m) , а length(m-1)
и вот после этого m:= 'eto, net okolo togo. da ploho .'; допиши ещё строчку
m:= m+'.'
это натот случай, если в программу будет введена строка, где на конце слово с буквой О, но не стоит т точка.

[hohoma]

тогда пишет это:нельзя преобразовать тип string к integer
и пишет что ошибка где я length(m) , а length(m-1) поменяла

[hohoma]

если имеет значение, то буква о из русского алфавита