11 lines
144 B
ObjectPascal
11 lines
144 B
ObjectPascal
|
uses
|
||
|
|
classes;
|
||
|
|
begin
|
||
|
|
with TFileStream.Create('input.txt', fmOpenRead) do
|
||
|
|
try
|
||
|
|
SaveToFile('output.txt');
|
||
|
|
finally
|
||
|
|
Free;
|
||
|
|
end;
|
||
|
|
end;
|