Matematické Fórum

ahoj, mám takovýhl program na práci s binárními soubory

const
  DelkaKusu=65535;
var
   Path1:string;
  Path2:string;
  F:file;
  C:file of text;
  buffer:array[1..DelkaKusu] of byte;
  i:word;
  l:longint; 
begin
.
.
.
assign(f,Path1);
  assign(c,Path2);
  reset(f,l);
  rewrite(c,l);
  repeat                                                      while not eof(f) do begin
    blockread(f,buffer,DelkaKusu,i);                 blockread(f,buffer,DelkaKusu,i); 
    blockwrite(c,buffer,i)                                 blockwrite(c,buffer,i)
  until eof(f);                                                 end;
close(f);
close(c);
end.

programu dam soubor ze kterýho chci zkopírovt data do textaku, jenže at mu dám jakýkoliv soubor, celý cyklus while přeskočí, jako kdyby došel okamžitě na konec souboru, a s repeat cyklem celá akce ztroskotá na prvním kroku, a tak by mě zajímalo, jestli mu dávám špatné soubory (zkoušel jsem různé např. docx, rar, kmz, jpg, txt.., ale u všech to dopadlo stejně) nebo je něco jiného špatně?