работа с файлами

uses crt;
var f,g:file of integer;
    i,k,n:integer;
begin
randomize;
assign(f,'data\data.txt');
assign(g,'data\result.txt');
rewrite(f); rewrite(g);
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do
begin
   k:=random(100);
   write(f,k);
end;
close(f); reset(f);
while not eof(f) do
begin
   read(f,k);
   if not odd(k) then write(g,k) else
   if (k mod 3=0)and(k mod 7<>0) then write(g,k)
   else if frac(sqrt(k))=0 then write(g,k);
end;
close(g); reset(g);
writeln('Результат:');
while not eof(g) do
begin
    read(g,k);
    write(k:4);
end;
close(f);
close(g);
readln;
end.

program tan9;
uses crt;
var
   f, g: text;
   i,n,k: integer;
   StrK: string;
begin
     randomize;
     assign (f,'C:\pr\chisla.txt');
     rewrite(f);
    write('vvedite chislo  ');   readln(n);
     for i:=1 to n do
begin
          k:=random(10000);
          Str(k, StrK);
          writeln(f, StrK);
end;
     close(f);
     readln;
 
end.

program fail_G;
uses crt;
var
   f, g: text;
   i,n,k: integer;
   StrK: string;
begin
     assign (f,'C:\pr\chisla.txt');
     reset(f);
     {chetnye & del na 3 & ne del na 7 & javl toch kvadratom }
     assign (g,'C:\pr\result.txt');
     rewrite(g);
 
     while not eof(f) do
begin
      readln(f,k);
      if (not odd(k)) and (k mod 3=0) and (k mod 7<>0) and (frac(sqrt(k))=0) then writeln(g,k);
end;
     close(f);
     close(g);
 
end.