Задача такая:
"Опишите программу, которая в линейном однонаправленном динамическом списке А из каждой группы идущих подряд элементов оставляет тольеко один"
http://forum.pascal.net.ru/index.php?s=&showtopic=11774&view=findpost&p=72278
(процедура f_3 делает именно то, что тебе нужно... Задание в первом посте по ссылке совпадает с твоим...)