В введенному с клавиатуры тексте исключить символ «,» и подсчитать число изъятых символов. Вывести исходный и измененный тексты — Pascal(Паскаль)

var
a:string;
k:integer;
begin
readln(a);
while pos (',',a)<>0 do
begin 
delete(a,pos(',',a),1);
inc(k);
end;
writeln(k);
writeln(a);
readln;
end.

var
  s,r: string;
  i,c: byte;
begin
  ReadLn(s);
  r := '';
  c := 0;
  for i := 1 to Length(s) do
    if s[i] = ',' then
      Inc(c)
    else
      r := r + s[i];
  WriteLn('Count: ', c, #10, 'String: ', s, #10, 'Result: ', r);
  ReadLn;
end.