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

спасибо

vara: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.