Описать процедуру prisv (t1, t2) переписывающую содержимое текстового файла t2 в текстовый файл t1 (с сохранением деления на строки)

Procedure Prisv (t1, t2: Text) ;

var

s: string;

begin

Reset (t2) ;

Rewrite (t1) ;

while not eof (t2) do

begin

readln (t2, s) ;

writeln (t1, s)

end;

Close (t1) ;

Close (t2)

end;

Пример вызова процедуры для перезаписи файла:

var

f1, f2: Text;

begin

Assign (f1, 'input. txt') ;

Assign (f2, 'output. txt') ;

Prisv (f2, f1) ;

end.

Procedure prisv (t1, t2:string) ;

var

f1, f2:text;

s:string;

begin

assign (f2, t2) ;

reset (f2) ;

assign (f1, t1) ;

rewrite (f1) ;

while not eof (f2) do

begin

readln (f2, s) ;

writeln (f1, s) ;

end;

close (f1) ;

close (f2) ;

end;