Ввести строчку из текстового файла. Продублировать в ней все цифры. Другие

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 nlt;gt;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.