Ввести строку из текстового файла. Продублировать в ней все цифры. Остальные символы оставить без изменения. PascalABC.Net
(Продублировать это значит приписать к каждой цифре справа такую же)

var f:text;  i,n:integer;  s,s1:string;begin;assign(f,'text.txt'); reset(f);  while not(Eof(f)) do   read(f,s); close(f);n:=0;while n<>length(s) do begin;  inc(n);  for i:=0 to 9 do   begin;    str(i,s1);     if s[n]=s1 then      begin;        delete(s,n,1);        s1:=s1+s1;        insert(s1,s,n);        inc(n);         end;   end; end;writeln(s);end.