Строка содержит произвольные символы таблицы ASCII. Удалить из строки все цифры и повторить дважды каждый символ, кроме пробела, не являющийся цифрой — Pascal(Паскаль)

var
a:string;
i:integer;
begin
readln(a);
for i:=length(a) downto 1 do
if (ord(a[i])>47) and (ord(a[i])<58)then delete(a,i,1) else if ord(a[i])<>13 then insert(a[i],a,i);
writeln(a);
readln;
end.