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

[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 19:13

[Bokul]

Сдвигаешь на единицу все элементы файла начиная с середины, тем самым замещая (удаляя) центральный элемент..

Добавлено через 3 мин.
PS Поздравляю себя с 1000 сообщением (почти volvo догнал )