Файлы. Каждый заданный символ заменить на заданную последовательность символов

uses crt, xe;
 
begin
 
 
clrscr;
write('Введите текст: ');readln(s);
write('Введите заменяемый символ: ');readln(c);
write('заменяемая часть: ');readln(s1);
cicle(s);
write('Итог: ',s);
end.

unit pff;
interface
       var s,s1:string;
    c:char;
 
    procedure cicle(var s:string);
 
implementation
    procedure cicle(var s:string);
      var i:integer;
    begin
    i:=1;
    while i<= length(s) do
                        begin
                        
                                if copy(s,i,1)=c then
                                             begin
                                             delete(s,i,1);
                                             insert(s1,s,i);
                                             end;
                                             inc(i);
                          end;
 
    end;
 
begin
 
end.

uses crt;
var f,g: file of char;
    c,cc: char;
    s: string;
    i,n: integer;
begin
assign(f,'C:\in.dta');
assign(g,'C:\out.dta');
rewrite(f);
write('Сколько символов вводим в файл? '); readln(n);
writeln('Введите в строку без пробелов ',n,' символов');
for i:=1 to n do
    begin
    read(c);
    write(f,c);
    end;
write('Какой символ заменять? '); read(cc);
write('Введите в строку последовательность символов для замены: '); read(s);
reset(f);
rewrite(g);
while not (eof(f)) do
      begin
      read(f,c);
      if c=cc then
         for i:=1 to length(s) do
             begin
             c:=s[i];
             write(g,c);
             end
         else write(g,c);
      end;
reset(g);
writeln('Итоговый файл');
while not (eof(g)) do
      begin
      read(g,c);
      write(c,' ');
      end;
close(f);
close(g);
end.

uses crt;
var f,g:file of char;
    c,c1:char;
    s:string;
    n,i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько символов записать в файл n=');
readln(n);
writeln('Введите в файл символы');
for i:=1 to n do
 begin
  readln(c);
  write(f,c);
 end;
clrscr;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
writeln;
write('Какой символ заменить? c=');
readln(c1);
write('Введите группу символов для замены s=');
readln(s);
seek(f,0);
while not eof(f) do
 begin
  read(f,c);
  if c<>c1 then write(g,c)
  else
   for i:=1 to length(s)do
   write(g,s[i]);
 end;
close(f);
reset(g);
writeln('Содержание нового файла');
while not eof(g) do
 begin
  read(g,c);
  write(c);
 end;
close(g);
readln
end.