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

var
  s:string;
  k:byte;
begin
  readln(s);
  k:=0;
  while pos(':',s)<>0 do
    begin
      delete(s,pos(':',s),1);
      k:=k+1;
    end;
  writeln(s);
  writeln('k=',k);
end.