t_17_4_a_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать процедуру, выводящую на экран содержимое текстового файла t, выписывая символы каждой его строки в обратном порядке}
procedure rewrite(var f:text);
      var c:char; q:stack;
      begin
          assign(f,'D:\pascal.text\17.4a.txt');
          reset(f);
          read(f,c);
          repeat
              if not(eoln(f)) then ВСТЕК(q)
              else do
                   begin
                         while not ПУСТЕК(q) do
                                 begin
                                       ИЗСТЕКА(q,с);
                                       write(с);
                                 end;
                         writeln;
                   end;
          until eof(f);
          close(f);
      end;