файлы, прямого доступа Опции

[Hunt666]

задачка такая удалить из файла с нечетным количеством элементов тот который находится посередине у мне прога почти готова но понять не могу в чем ошибка

program file_1;
uses crt;
var  f: file of byte;
    k,i,y,n,x: byte;
begin
   begin
   {создание файла}
    randomize;
    clrscr;
    assign(f,'a:\aaa.bbb');
    rewrite(f);
    for i:=1 to 19 do
      begin
         n:=random(99);
         write(n,' ');
      end;
      writeln;
      close(f);
   end;

  {удаление среднего элемента}

  begin
     assign(f,'a:\aaa.bbb');
     reset(f);
    x:= filesize(f);
    k:=((x div 2)+1);
    for i:=k to (filesize(f)-1) do
      begin
         seek(f,i);
         read(f,y);
         seek(f,i-1);
         write(f,y);
      end;
      truncate(f);
      write(y,' ');
      close(f);
   end;
End.

ps частьв которой идет создание файла я задавал массивом и его уже писал в файл все работало
эту часть я изменил вторую не трогал

Сообщение отредактировано: Hunt666 - 18.02.2007 15:13

[Hunt666]

truncate(f);
      writeln;
      readln;
      reset(f);
      writeln('файл стал');
      while not eof(f) do
        begin
         read(f,y);
         write(y,' ');
        end;
        writeln;
        readln;
      close(f);

вот что я после truncate добавил ,все работает ,спасибо всем кто помогал