Текстовый файл

[Ви5Кторинка]

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


Программа (с модулями)

unit Program1;

interface
type
st= string;
implementation
end.

unit Program4;
Interface
     uses Program1;

procedure zamena (var stt:string);
implementation
procedure zamena (var stt:string);
var i:integer; f:text;
begin
assign (f,'С:\text.txt');
reset (f);
while not (seekeof (f)) do
begin
read (f, i);
write (i, ' ');
i:=1;
while i<=length (stt) do
 if stt[i]='б' then
 begin delete (stt,i,1);
 Insert('ку',stt,i);
 end
 else i:=i+1
 end;
 begin
 close (f);
 end;
end;
end.

uses Program1, Program4;

var
f:text;
  st: string;
begin

writeln ('Введите текст:');
readln(st);
writeln(f, st);
zamena(st);
writeln ('Измененный текст:',st);
end.

[s-andriano]

А сами компилировать пытались?

[Ви5Кторинка]

Извините что? Объясните что вы имели ввиду? Я все что смогла сделала. Но что то не работет не знаю в чем ошибка преподовательница сказала что сделать буду пытаться, но если кто поможет буду благодарна.

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

 unit Program1;

 interface
 type
 st=string;
 implementation
 end.



 unit Program4;
 Interface
 uses Program1;

 procedure zamena (var f:text);
 implementation
 procedure zamena (var f:text);
 var i:word;
 stt:string;
 begin
 assign (f,'C:\Текстовый документ.txt');
 reset(f);
 while not (seekeof(f)) do
 begin
 readln (f,i);
 writeln (i);
 while not (seekeof(f)) do
 begin
 read (f,i);
 write (i, ' ');
 i:=1;
 while i<=length (stt) do
 if stt[i]='б' then
 begin delete (stt,i,1);
 Insert('ку',stt,i);
 end
 else i:=i+1
 end;
 begin
 close (f);
 end;
 end;
 end;
 end.

 uses Program1, Program4;

 var
 f:text;
 st: string;
 begin
 assign (f,'C:\Текстовый документ.txt');
 zamena(f);
 end.