小明同学编写如下功能的程序：从键输入任意—个字符串和一个字符，要求从该字符串中删除所有该字符。
输入格式：
两行，第一行是字符串（字符串至少有一个字符，不多于100个），第二行是一个字符。
输出格式：
两行，第一行为删除了所有字符后的字符串，第二行是删除的字符个数。

样例输入：
ASD Dfg fhd
D
样例输出：
AS fg fhd
2
为实现上述功能请在划线处填合适保代码。

var m,ch,s, s1, s2:string;
  len,i,g:integer;
begin
  readln(s);
  readln(ch);
   len:=length(s);
   i:=1;
   g:=0;
   while i<=len do
   begin
   m:=copy (s, i, 1);
   if m=ch then
   begin
     s1:=copy(s, 1, i-1);
	 s2:=copy(s, i+1, len-i或len或len-1 );
	 s:=s1+s2;
	  inc(g);
	 i=i-1;
	 len:=len—1;
   end;
  i:=i+1;
  end;
  writeln(s) ;
  writeln(g);
end.