seek 函数？？？

Question

use Assignfile();  Append() ;

Answer 1

var
myfile : textfile;
i:integer;
title:string;
begin
title:='';
if fileexists('filename') then
   Append(Myfile)
   else  rewrite(Myfile);
   try
    for i:=0 to DBGrid1.FieldCount -1  do
    begin
      title:= title+ format('%12s',[DBGrid1.Columns[i].Fieldname]);
    end;
     writeln(Myfile,title);
      while not query1.eof do
      begin
        write(Myfile,'')  ;
        for i:=0 to dbgrid1.fieldcount-1 do
         write(Myfile,format('%12s',[dbgrid1.fields[i].asstring]));
         writeln(myfile,'');
         query1.next;
      end;
   finally
     closefile(Myfile);
   end;

Answer 2

seek(var F,N:integer)
好像是定位指针到某个位置吧。N是位移量，F是文件吧。不过我看有的书上F为integer类型的值。我也不知道为什么。