(数字删除)下面程序的功能是将字符串中的数字字符删除后输出。请填空。（每空3分，共12分）

var
s:string;
len, i:integer;
function delnum(var s:string):integer;
Var
I, j: Integer;
begin
    j:=1;
    for i:=1 to length(s) do
      if (s[i]<'0')    or     (s[i]>'9') then
      begin
        s[j]:=s[i];
           inc(j)   ;
      end;
exit(   j   );
end;

begin
   readln(s);
   len:=delnum(s);
   for i:=1 to len do
     write(   s[i]     );
   writeln;
end.