Type TFile = File of Integer;
Var F1, F2 : TFile;
N1,k: Integer;
Const FileName1 = 'Test.dat1';
FileName2 = 'Test.dat2';
procedure CreatFile(var FF:TFile; N: Integer);
var i,b:Integer;
begin
Rewrite(FF);
for i:=1 to N do
begin
Write('[> '); ReadLn(b);
Write(FF, b);
end;
Close(FF);
end;
procedure LoadFromFile(Var FF:TFile);
var m:Integer;
begin
Reset(FF);
while not (eof(FF)) do
begin
Read(FF, m);
Write(m,' ');
end;
Close(FF);
end;
begin
Assign(F1,FileName1);
Assign(F2,FileName2);
Write('Input N1[> '); ReadLn(N1);
CreatFile(F1,N1);
LoadFromFile(F1);
WriteLn;
Reset(F1);
ReWrite(F2);
while not Eof(F1) do
begin
Read(F1,k);
if k mod 5=0 then Write(F2,k);
end;
Close(F1); Close(F2);
LoadFromFile(F2);
readln;
end.