Pascal ABC, Помогите, пожалуйста, со строками Опции

[Raigo]

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

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

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.
-------------------------------------

Модуль3:

uses op, obrabotk;
var
s : str;
begin
vvod(s);
writeln('Òåêñò ', zamena(s));
readln;
end.

Без понятия че ему надо, пишет "Неизвестный идентификатор s " во втором модуле