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

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.