Помогите, пожалуйста, школоте:
Нужно в паскале написать программу заменяющую в заданной строке все вхождения "ку" на "за" с помощью операции копирования, удаления и вставки.
как пытался сделать я:
Показать скрытый текст
program xz;
uses crt;
var a,b,c,s:string; i,d,q:integer;
begin
readln(a);
c:='za';
d:=length(a);
for i:=1 to d do
b:=copy(a,i,2);
if b='ky' then begin q:=pos(b,a);
a:=delete(a,q,2);
a:=insert(c,a,q);(здесь ошибка 42)
end;
writeln(a);
readkey;
end.