Задача на стек (в Паскале)

[Mclaren]

Я чото затупил или у меня уже голова не думает Надо 2 задачки на стек решить в Паскале одну решил Вот условия
1) Написать процедуру, которая удаляла бы из односвязного списка элементы, содержащие некоторое значение, передаваемое в процедуру в качестве параметра.
2) Написать процедуру, которая меняла бы в односвязном списке крайние элементы.
Первую решил вот код. Помогите перправить код первой на код второй, а тоя поплыл просто завтра сдавать.

[diliana]

по поводу стека - ты не путаешь стек и список? - у тебя по заголовку темы стек, а в условии задачи список.

//вот перенос первого элемента в конец списка
tmp := head; 
while (tmp^.next <> nil) do tmp := tmp^.next;
tmp^.next := head;
head := head^.next;

[Mclaren]

Что-то она зацикливается?

Помогите исправить код плиз.