нетипизированные файлы паскаль - Во внешнем файле создать очередь произвольной длины

[ololoshqa]

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

[Grag]

Объясни мне, ни разу не грамотному, что такое нетипизированный файл, пли-и-и-з!!!

[Stilet]

Это f:File; Без указания типа.
С ними работают в основном через BlockRead(Write)

[Grag]

Вообще-то, я бы предпочел, чтобы это написал ТС...

[ololoshqa]

вот что написал

Program file_2;
 Uses crt;
 Type
   FileType = File;
 Var
   f : Filetype;
   p,i,n,n0,o:integer;
   ch:char;
 Begin
   clrscr;
   assign(f,'FileNetipiz');
   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;
    {'2':}
     '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.

подскажите как удалять элементы из файла