В строке удалить знак двоеточие (:) и подсчитать количество удаленных знаков.

var
nbsp;nbsp;s:string;
nbsp;nbsp;k:byte;
begin
nbsp;nbsp;readln(s);
nbsp;nbsp;k:=0;
nbsp;nbsp;while pos(:,s)lt;gt;0 do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;delete(s,pos(:,s),1);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;k:=k+1;
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;writeln(s);
nbsp;nbsp;writeln(k=,k);
end.