Мне нужно написать процедуру, которая удаляет из непустого списка 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