Написать процедуру подобно insert, которая после каждого вхождения символа C в строку S1 вставляет строку S2

[azalia]

Доброго времени суток. Очень нужна помощь.
Нужно написать процедуру, которая после каждого вхождения символа С в строку S1 вставляет после него подстроку S2.
Что-то попыталась написать, но не работает.
Код:

var
  s1, s2: string;
  c: char;
  i, j, p, len: integer;

begin
  s1 := 'abcdbeob';
  s2 := 'yyy';  
  c := 'b';
  
  readln(s1);
  while not eoln do
  begin
    if s1[i] <> c then i := i + 1       //ищет символ в строке
    else
    begin
      len := length(s1);
      Len := Length(s1) + Length(s2);    //прибавляет к длине s1 длину s2
      for j := (s1.Length - s2.Length) downto (i + 1) do
        s1[j] := s1[j + s2.Length];     //передвигает буквы s1-й строки вправо на длину s2
      for p := 1 to s2.Length do        //на пустое место вставляет строку s2 
        s1[i + p] := s2[p];
    end;
  end;
  writeln(s1);
end.

[ZX Spectrum-128]

Ошибка была range check error?
Начальное значение i не определено

[azalia]

Нет, не range check error. i определила, ничего не изменилось. Даже на экран ничего не выводится.

[ZX Spectrum-128]

Len := Length(s1) + Length(s2);

А вы уверены, что так будет увеличиваться длина строки?
Если я правильно помню, длина строки хранится в s[0], то есть в элементе строки с индексом 0.

[azalia]

Вы правы, строка так не увеличивается

А как по-другому, я не знаю.

[ZX Spectrum-128]

SetLength
Но я не помню, была ли она в турбо паскале.

Вариант записи новой длины непосредственно в s[0] не прокатит? Попробуйте

[azalia]

SetLength есть в паскале, и у меня не турбо, а abc.net. А зачем устанавливать длину, если неизвестно сколько строк s2 войдут в строку s1?

[ZX Spectrum-128]

function Eoln [ (var F: text)]: boolean;
Действие: Если при обращении к функции Eoln параметр не указан, то функция проверяет, не является ли очередной символ, читаемый из буфера клавиатуры, символом "новая строка". Если является, то функция возвращает значение true, в противном случае — false. Если параметр указан, то функция аналогичным образом проверяет очередной символ текстового файла, связанного с файловой переменной, указанной при вызове функции.

У меня есть подозрение что eoln сразу падает в false

[azalia]

а если так: while i<=s1.Length do ?
хотя лучше программа не заработала

[ZX Spectrum-128]

У меня уффффффф
Только один вариант. Сначала Циклом пробежатьсяпо строке, узнав сколько раз встречается этот символ.
И цикл вставки пойдет уже по этому количеству повторений