Очередь. Линейные структуры данных, нужна процедура Опции

[ПухАчОк]

Люди добрые!!! Помогите!!!!
Мне нужно написать процедуру, которая удаляет из непустого списка L за каждым вхождением элемента E один элемент, если такой есть и он отличен от E. Список L-- таблица(поля:номер,ФИО,год рождения,пол,семейное состояние,количество детей,оклад), элементы-- строки таблицы.
даю описание таблицы:

Type
 rabotnik=record
  number:integer;
  FIO:string[15];
  godroj:integer;
  pol:char;
  cem:string[15];
  koldet:integer;
  oklad:integer;
  end;
 rab=file of rabotnik;
 Queryptr=^query;
 query=record
  inf:rabotnik;
  next:Queryptr;
  end;

Var
 f:rab;
 left,rigth,newe,temp:Queryptr;

Напишите,плиз, эту процеДУРУ!!!!! Оч надо, а то в универе выговор сделают!!!!!!!!
2. Все тексты программ должны помещаться в теги [ CODE ] [ /CODE ].
APAL