Удалить запись в типизированном файле,которые вводятся...

program praktika11_2;
uses crt;
type
 zap = Record
 number, kol, trkol, inf : array[1..100] of String; { number - № артикула*, kol - кол-во на складе, trkol - требуемое кол-во, inf - инф о заказчике }
 NumZ : LongInt;
End;
Var
 Vedom : File Of zap;
 A : zap;
 FileName : String; { Имя набора данных }
 i,j,lm,vid: Integer;
 End_Menu : Boolean;
 number2, kol2, trkol2, inf2 : array[1..100] of String;  { Для процедуры № 2 }
procedure Create_file; { Создание файла }
Begin
clrscr;
 Writeln('Введите имя файла');
 Readln(FileName);
  Assign(Vedom,FileName);
  Rewrite(Vedom);
 Writeln('Введите кол-во артикулов: ');
 Readln(lm);
   Writeln ('Введите сведения о каждом артикуле');
    for i:=1 to lm do
     begin
      writeln('Ввод записи № ',FilePos(Vedom)+1);
      with A do
       begin
        write('Введите № артикула*: '); readln(number[i]); number2[i]:=number[i];
        write('Введите кол-во на складе: '); readln(kol[i]); kol2[i]:=kol[i];
        write('Введите требуемое кол-во: '); readln(trkol[i]); trkol2[i]:=trkol[i];
        write('Введите инф о заказчике: '); readln(inf[i]); inf2[i]:=inf[i];
       end;
      write(Vedom,A);
     end;
 writeln('Файл данных имеет ',FileSize(Vedom),' записи');
 writeln('Создание файла успешно завершено');
end;
procedure Read_file; { Просмотр списка заказов на товары }
begin
clrscr;
 Writeln('Введите имя файла');
 Readln(FileName);
 assign(Vedom,FileName);
  writeln('ЪДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДї');
  writeln('і ь ЂавЁЄг«* і Љ®«-ў® ** бЄ*«*¤Ґ і ’ॡ㥬®Ґ Є®«-ў® і ?*д ® §*Є*§зЁЄҐ і');
  writeln('ГДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДґ');
 for i:=1 to lm do
   begin
       writeln('і     ',number2[i],'     і        ',kol2[i],'         і        ',trkol2[i],'        і      ',inf2[i],'      і');
      if i<lm then writeln('ГДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДґ');
     if i=lm then writeln('АДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДЩ');
   end;
 writeln('Просмотр файла успешно завершен*');
end;
{procedure Delete_zapici; - удалить записи
 var n:integer;
     B:array[1..100] of integer;
begin
clrscr;
 writeln('Введите общее кол-во записей,которые хотите удалить: '); readln(n);
  for j:=1 to n do
   begin
    writeln('Введите № артикула*: '); readln(B[n]);
     for i:=1 to lm do
      begin
       If nubmer2[i] = B[n] then
        with A do
 .......
end}
procedure Pokaz_zapici;
begin
clrscr;
 writeln('Записи,в которых требуемое кол-во превышает имеющееся на складе: ');
  for i:=1 to lm do
   begin
    if trkol2[i] > kol2[i] then writeln('Запись № ',0+i,' ');
   end;
 writeln('Вывод на экран записей успешно завершен');
end;
begin {Основная программа*}
Clrscr;
   End_Menu:=False;
 repeat 
   writeln('*** Заказы на товары ***');
   writeln(' Введите вид работы: ');
   writeln(' 1 - Создание нового файла* ');
   writeln(' 2 - Просмотр списка заказов на товары ');
   writeln(' 3 - Удалить записи,№ артикула которые вводятся');
   writeln(' 4 - Вывести те записи,в которых требуемое кол-во превышает имеющееся на складе ');
   writeln(' 0 - ‡*ўҐаиҐ*ЁҐ а*Ў®вл ');
   write(' Ваш выбор: '); readln(vid);
 case Vid of 
   1 : Create_file;
   2 : Read_file;
  {3 : Delete_zapaci; }
   4 : Pokaz_zapici; 
   0 : End_Menu:=True;
 end;
  writeln('Для продолжения работы нажмите Enter');
  readln;
  clrscr;
 until End_Menu; 
end.