Напишите программу, которая заменяет во всей строке одну последовательность символов на другую - 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.
но, кажется мне, что это не правильно...

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

textual
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.

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ