Задание с строковыми величинами: 2 повторяющееся буквы заменить на 2 на другие

program urtr;
var s,sl,e: string; k,v: integer;
begin
write('Введите слово: ');
read(s);
write('Заменить буквы: ');
read(sl);
write('На буквы: ');
read(e);
k:=pos(sl,s);
v:=length(sl);
delete(s,k,v);
insert(e,s,k);
writeln(s);
end.

var s,sl,e: string; k,v: integer;
begin
writeln('Введите слово: ');
readln(s);
write('Заменить буквы: ');
readln(sl);
writeln('На буквы: ');
readln(e);
k:=pos(sl,s);
v:=length(sl);
repeat
delete(s,k,v);
insert(e,s,k);
k:=posex(sl,s,k);
until k=0;
writeln(s);
end.

var s,sl,e: string; k,v: integer;
begin
write('Введите слово: ');
read(s);
write('Заменить буквы: ');
read(sl);
write('На буквы: ');
read(e);
while pos(sl,s)<>0 do
      begin
      k:=pos(sl,s);
      v:=length(sl);
      delete(s,k,v);
      insert(e,s,k);
      end;
writeln(s);
end.

var a,b,c,d,e,i: integer;
s: string;
s1,s2: string;
Begin
read(s); //Сама строка
read(s1); //Буква, которую надо заменить.
read(s2); //Буква, на которую заменяется.
s2:=concat(s2,s2);
a:=length(s);
 
 for i:=1 to a-1 do
 if (s[i]=s[i+1]) and (s[i]=s1[1]) then
 begin
 delete(s,i,2);
 insert(s2,s,i);
 end;
write(s);
End.