Question

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

Answer 1

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;

Answer 2

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.