Напишите программу, которая заменяет во всей строке одну последовательность символов на другую - Turbo Pascal

Формулировка задачи:

Напишите программу, которая заменяет во всей строке одну последовательность символов на другую. Я пыталась сделать что-то такое,

var
a: string;
b,c,e: integer;
d:char;
begin
write('Введите строку:'); read(a);
write('Что меняем:'); read(c);
write('Чем заменить:'); read(d);
for b:=1 to length(a) do begin
e:=pos('c',a);
a[e]:=d;
end;
writeln('Результат: ',a);
end.

но, кажется мне, что это не правильно...

Решение задачи: «Напишите программу, которая заменяет во всей строке одну последовательность символов на другую»

Листинг программы

var a,b,c: string;
    i: byte;
begin
write('Введите строку:'); readln(a);
write('Что меняем:'); readln(b);
write('Чем заменить:'); readln(c);
for i:=1 to length(a) do
 if copy(a,i,length(b))=b then
  begin
   delete(a,i,length(b));
   insert(c,a,i)
  end;
writeln('Результат:');
writeln(a)
end.

Объяснение кода листинга программы

В начале объявляются переменные a, b и c типа string, а также переменная i типа byte.
Затем выводится сообщение для ввода строки, которое читается в переменную a.
Выводится сообщение для ввода того, что нужно заменить, которое читается в переменную b.
Выводится сообщение для ввода того, чем нужно заменить, которое читается в переменную c.
Запускается цикл for, который проходит по каждому символу в строке a.
Внутри цикла проверяется условие: если текущий символ в строке a совпадает с символом из строки b (то есть копирование происходит), то удаляется этот символ из строки a и вставляется символ из строки c на это же место.
После выполнения всех проверок выводится итоговая строка a.