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

[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

[мисс_граффити]

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

[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);
    writeln('файл состоит из элементов:');
    for i:=1 to 19 do
      begin
         n:=random(50);
         write(f,n);
       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,n);
         seek(f,i-1);
         write(f,n);
      end;
      truncate(f);
      close(f);
   end;
End.

тока вот теперь у меня не получается вывести на экран что находится в файле (конечном)