Строки не работает

[Д@ш@]

Написать программу, которая каждую встреченную букву "б" заменяет сочетанием "ку".
Не работает

Модуль 1
unit op;
interface
  type str= string;
implementation
end.

Модуль 2

unit obrabotka;
interface
uses op;
  procedure vvod(var s:str);
  function zamena(var s:str):integer;
implementation
procedure vvod;
begin
        writeln('‚Введите текст');
        readln(s);
end;
function zamena;
var   i,  s    : integer;
begin
for i:=length(s) downto 1 do
if s[i]='б' then
 begin
   insert('ку',s,i);
   delete(s,i+2,1);
 end;
end.

Модуль 3

uses op, obrabotka;
var
       s        : str;
begin
     vvod(s);
     writeln('Текст ', zamena(s));
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[stck]

Зачем так сложно по нескольким модулям?
Сначала удаляйте текущий символ, потом только вставляйте.

[Serge_Bliznykov]

модуль obrabotk (имя сократил до 8-ми символов, иначе TurboPascal не смог бы найти этот модуль...

unit obrabotk;
interface
uses op;
  procedure vvod(var s:str);
  function zamena(s:str): string;

implementation

procedure vvod;
begin
  WriteLn;
  write('Введите текст: ');
  readln(s);
end;

function zamena;
var   i : integer;
  sTemp : string;
begin
  sTemp := s;
  for i:=length(sTemp) downto 1 do
  if sTemp[i]='б' then
    begin
      delete(sTemp,i,1);
      insert('ку',sTemp,i);
    end;
  zamena := sTemp;
end;

end.

основная программа:

uses op, obrabotk;
var
  s : str;
begin
   vvod(s);
   writeln('Текст ', zamena(s));
   readln;
end.