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

[NetSpace]

у тебя строки не складывает????
кстати, ты в своём коде определись. либо у тебя строка m, либо строка s
в условии поиска замени все s[] на m[]

var
  m: string;
  i, k: integer;
begin
  m:= 'eto samoe, inet okolo togo. pogovorit ne o chem! da ploho';
  m:=m+'.';//на всякий случай в конеце поставим точку, т.к проверяем i+1 индекс
  k := 0;
  for i := 1 to length(m-1) do
  begin
     if(m[i] = 'o')and((m[i+1]=' ') or (m[i+1]='.') or (m[i+1]=',')) then k:=k+1;
  end;
  writeln ('slov: ', k);
  readln
end.

[hohoma]

for i := 1 to length(m-1) do из за этой строки ошибка
пишет:Нельзя преобразовать тип string к integer

[Serge_Bliznykov]

 to length(m-1)

ну и правильно ругается!! Ну а как вы от СТРОКИ пытаетесь отнять единицу!!!!

Вы, наверное, хотели так написать:

for i := 1 to length(m)-1 do

[NetSpace]

ув.тов.МегаМодератор, я хотел, что наш товарищ студент САМ нашёл ошибку!
опять ситуация успеха пропала....
я эти строки и массива в школе просто ненавидел, трудно давались. но студентом сам разобрался и понравилось!

[Serge_Bliznykov]

NetSpace, извините, я не понял ваших замыслов.. Хотите, удалю свой пост и наши два последующих?

[Аватар]

Замыслы коварные Но тов.студент наверняка уже скопипастил, беда
А если нет, то потом будет по-мо-ги-те. Лучше оставить

[hohoma]

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

мне подруга помогла)и я наконец сама поняла
вдруг потом кто то зайдет по такому же вопросу) так что оставлю здесь)