процедура sееk

[Snake_ua]

Кто-нибудь, киньте мне программу с использованием этой процедуры. Хочу разобратся, как с ней работать (хелпа в паскале не хватает...)

[Stilet]

Вот из хелпа :

 uses WinCrt;

var
  f: file of Byte;
  size : Longint;
begin
  { Get file name from command line }
  Assign(f, ParamStr(1));
  Reset(f);
  size := FileSize(f);
  Writeln('File size in bytes: ',size);
  Writeln('Seeking halfway into file...');
  Seek(f,size div 2);
  Writeln('Position is now ',FilePos(f));
  Close(f);
end.