Во внешнем файле создать очередь произвольной длины. Удалять или дополнять ее произвольным количеством элементов.Написал код для добавления элементов. Подскажите как удалять элементы из файла

Program file_2;
 Uses crt;
 Type
   FileType = File;
 Var
   f : Filetype;
   p,i,n,n0,o:integer;
   ch:char;
 Begin
   clrscr;
   assign(f,'FileNetipiz.txt');
   rewrite(f);
   writeln('Введите длинну очереди ');
   read(n);
   for i:=1 to n do
     begin
      writeln('Введите ',i,'-й элемент ');
      read(p);
      blockwrite(f,p,1);
     end;
   close(f);
   repeat
    clrscr;
    writeln('1.Добавить элементы');
    writeln('2.Удалить элементы');
    writeln('3.Вывести очередь на экран');
    writeln('4.Выход');
    ch:=readkey;
     clrscr;
    case ch of
     '1':begin
           reset(f);
            n0:=n;
           seek(f,n0);
           writeln('Введите кол-во добавляемых элементов');
           read(o);
           n:=n+o;
           for i:=n0+1 to n do
            begin
             writeln('Введите ',i,'-й элемент');
             read(p);
             blockwrite(f,p,1);
            end;
            close(f);
         end;
     '3':begin
          reset(f);
          writeln('Очередь:');
          for i:=1 to n do
           begin
             blockread(f,p,1);
             write(p,' ');
           end;
           readkey;
          close(f);
         end;
     '4':exit;
    end;
   Until ch='4';
 end.