B заданном тексте удалить символ «,» и подсчитать число удаленных символов — Pascal(Паскаль)

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