Question

Составить программу, вставляющую перед каждой цифрой 4 в исходной строке слово "да"
uses crt;
var m,k,i: integer;
s,s1:string;
begin
Writeln('ВВедите строку: ->');
readln(s);
m:=0; //
for i:=1 to length(s)*2 do //
begin
if copy(s,i,1)='4' then //
begin
insert('da',s,i); //
i:=i+2; //
m:=m+1; //
end;end;
writeln;
write('Количество замен: ',m);
write('Новая строка: ',s);
end.