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;
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.
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;