Обработка текста!

[lelia222]

Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста. Текст заканчивается комбинацией двух специальных символов, отличных от разделителя.
Выполнить над текстом последовательность действий, указанную в задании.
а) Определить порядковые номера, считая от начала текста,  определенных символов, которые задаются в исходных данных;
б) заменить пробелами все такие символы
 Пожалуйста помогите!!!

[Данила]

а в чем проблема? создаете массив,бежите по тексту,если i-тый текст = заданому,записываете его номер в массив....с заменой в принципе тоже самое,тольк уже не пишите в массив,а просто присваиваете этому месту другой символ

[InfStudent]

Если как Данила говорит делать, то она запишет номер последнего вхождения. Может оно так и надо конечно) Но если нужно только первое вхождение, то нужно обрывать цикл при первом удачном нахождении вхождения символа

[lelia222]

 
program pr3;
var b,s,c:string;
     k,i, ps :integer;
begin
  writeln ('введите текст'); readln (s);
  writeln ('введите СЛОГ который надо заключить в кавычки'); readln (b);
  k:=0; c:='';
  Ps := pos(b, s) ; // позиция, с которой b входит в s
  i := 1;
  while Ps>0 do
  begin
      k := k+1; // нашли слог!
      i  := i+ ps;  // надо проверить, может тут и не так !!!
      c := c + copy(s, 1, Ps-1) + '"' +b + '"'; // копируем очередной кусок строки с начала до вхождения слога + кавычка + слог + еще кавычка
      delete(s, 1, ps+length(b)-1);  // удаляем с начала строки до слога включительно
      writeln('Нашли слог на ', i, ' позиции');
      ps := pos(b, s);
  end;
  c := c + s; // добавим "остаток" строки
  writeln('нашли слог ', k, ' раз');
  writeln (c);
  readln;
end.
 
вот незнаю сделала так, правильно не правильно но вроде работает

[InfStudent]

вот только зачем написано отображение строки c,а еще и с прибавлением s

[InfStudent]

И еше одна прорблема: в вашем варинанте совершенно не учитываются разделители  и конрцевой элемент

[lelia222]

 *конрцевой элемент* это что такое

[InfStudent]

Ну у Вас в задании сказанно, что есть комбинация символов, которые  обозначают конец текста. Вот я так назвал этот пункт