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

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.