Ошибка 42 в процедуре delete

[Uzver004]

Задача: Удвоить кол-во символов "о" в задаваемом тексте. Вот мой код, на коменты по прежнему внимания не обращайте, это для преподавателя.

program lr3_3; {Заголовок программы}
  uses crt; {Подключение модуля управления экраном}
  var s,s1,s2:string; i,j,n:integer; k:byte; {Раздел описания переменных}
begin {Начало программы}
  clrscr; {Очистка экрана}
  writeln('Программа удвоения символа "о" в задаваемой пользователем строке текста, с последующим подсчетом кол-ва символов');
  write('Введите исходную строку:'); {Вывод на экран пользовательского текста}
  readln(s); {Считывание строки}
  for i:=1 to length(s) do
    if s[i]='o' then
      begin
        n:=length(s)-i;
        s1:=delete(s,i,n);
        s2:=copy(s,i,n);
        s:=concat(s1,'o',s2);
        i:=i+2
      end;
  k:=length(s);
  writeln('Полученная строка:'); {Вывод на экран пользовательского текста}
  writeln(s); {Вывод на экран обновленной строки}
  writeln('Кол-во символов в обновленной строке k=',k); {Вывод на экран результата}
  readln {Задержка изображения на экране}
end. {Конец программы}

На подчеркнутом участке останавливается, зараза. Я думаю что и на ф-ции copy тоже скорее всего остановится. Опять же с типами вроде все в порядке. Не пойму в чем дело. Компилировал в ТП7. Смотрел примеры для FreePascal, так там вобще эту процедуру еще до тела программы объявляют - зачем? Неужели она не стандартная?

[Базиля]

На ваш алгоримт не всматривался. (но все на первый взгляд замудренно)
delete - процедура, а не функция.
А вы вызываете ее как функцию.

Смотрел примеры для FreePascal, так там вобще эту процедуру еще до тела программы объявляют - зачем? Неужели она не стандартная?

Что в вашем понимании "объявляют"?
Ее вызов или же описание самой п/п? (тогда просто для демонстрации описали свою польз. процедуру и ее же в дальнейшем используют)
Скорей всего ее просто использовали, так как это требовалось для реализации алгоритма решения поставленной задачи.

[eoln]

...
readln(s); {Считывание строки}
for i:=length(s) downto 1 do
    if s[i]='o' then insert('o', s, i);
k:=length(s);
...

[Uzver004]

eoln, огромное спасибо! Все работает на ура, не могу только понять почему мой препод в своей кривой методичке (там примеры даже не в едином стиле выполнены, явно с инета надергал) не указал такую замечательную команду insert.
В общем я все понял, надо еще и в книгах покопаться, методы мало иногда оказывается!

to Базиля :
я еще раз пересмотрел тот пример, там видимо как раз то о чем вы говорили:

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