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

procedure prisv(t1,t2:string);var  f1,f2:text;  s:string;beginassign(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;

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.