В строке заменить все двоеточия (:) точкой с запятой (;) и посчитать количество замен. На языке С++

var

a:string;

i,k:integer;

begin

  readln(a);

      for i:=1 to length(a) do

           if a[i]=':'then

              begin

                 a[i]:=';';

                 k:=k+1;

               end;

writeln(k);

end.

var

s: string;

i, k: integer;

begin

k := 0;

readln(s);

for i := 1 to length(s) do

if (s[i] = ':')then

begin

s[i] := ';';

inc(k);

end;

writeln(s);

writeln(k);

end.