t_15_46_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать процедуру, переписывающую в текстовый файл t1 содержимое текстового файла t2}
program t_15_46_v1 (input,output);
var t1,t2:text;
procedure ass(t1:text,var t2:text);
     var c:char;
     begin
            assign(t1,'D:\pascal.text\15.46.input.txt');
            assign(t2,'D:\pascal.text\15.46.output.txt');
            reset(t1);
            rewrite(t2);
            repeat
               if (eoln(t1)=true) and (eof(t1)=false) then
                   begin
                        readln(t1);
                        writeln(t2);
                   end;
               if eoln(t1)=false then
                   begin
                        read(t1,c);
                        write(t2,c);
                   end;
            until eof(t1)=true;
            close(t1);
            close(t2);
     end;
begin
     ass(t1,t2);
end.