t_17_2_b_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать процедуру, переписывающую текст f в текст q с выписыванием в конце каждой строки всех входящих в нее цифр}
procedure rewrite(f:text; var g:text);
      var c:char; q:queue;
      begin
          assign(f,'D:\pascal.text\17.2b.txt');
          reset(f);
          read(f,c);
          repeat
              if not(eoln(f)) then do
                   begin
                         write(g,c);
                         if (c<='9') and (c>='0') then ВОЧЕРЕДЬ(q,c);
                   end
              else do
                   begin
                         while not ПУСТОЧ(q) do
                                 begin
                                       ИЗОЧЕРЕДИ(q,c);
                                       write(g,c);
                                 end;
                         writeln(g);
                   end;
          until eof(f);
          close(f); close(g);
      end;