Удвоить кол-во элементов в строке Опции

[Анна]

Задание:
Удалить все цифры и удвоить символы '+','-','*','/'. Вывести получившуюся строку и кол-во удалённых символов.

Вот, что получилось:

uses crt;
const dva = ['+','-','*','/'];
del = ['0'..'9'];
var
   s : string;
   t, i : byte;
begin
clrscr;
write ('Enter String: ');
   readln(s);
i:=1;
while (i<=length(s)) do begin

    if s[i] in del then delete(s,i,1) else inc(i); end;
 if s[i] in dva then begin
    for t := length(s)+1 downto i-1 do s[i] := s[i-1] ;
    s[i+1] := s[i]; inc(i) end;


writeln (s); readln;
end.
 

Цифры удаляет, а вот знаки не дублирует

[Анна]

Блин, не могу понять, как включить счётчик на удалённые элементы?