Списки. Удаление элемента из списка.

[thexqn]

Пусть в списке А хранится информация о людях (фамилия, имя, отчество, профессия)
Имеется список В, содержащий перечень профессий. Удалите из списка А тех людей, чья профессия
не указана в списке В.

type
Pointer_A = ^List_A;

List_A = record
FIO: string;
Profession: string;
next_A: Pointer_A
end;

Pointer_B = ^List_B;

List_B = record
Profession: string;
next_B: Pointer_B
end;


Предположим, процедуры ввода, вывода и печати этих списков у меня есть.
Помогите, пожалуйста, написать что-то вида:

procedure Delete(var A: List_A; B: List_B)

Спасибо!