удалить последний элемент из списка.ООП-Классы

[Otar4ik]

Добрый вечер!
На этот раз работаем с ООП,создали классы,методы.
Так вот нужно создать процедуру которая будет удалять автоматически последний элемент из списка,сверху,по умолчанию,то есть нажал кнопку и потом кнопку показать и он удаляет последний элемент.

Уже есть кнопки удаления 1-ого элемента,удаление по выбору(по середине по умолчанию)

Осталось только это

procedure udalposled(x:integer);--------------------Вот эта процедура!!
  var 
  p:sredper;
  i:integer;
  begin
  p:=last;
  if p.next=nil then 
  last:=nil
  else
  begin
  while p.last<>nil do
  last:=nil;
  end;
  end;

Всю программу кинуть не могу,так как большой код очень и форум не позволяет это сделать.

[Stilet]

форум не позволяет это сделать.

Файл прикрепить в архиве можно.

последний элемент из списка,сверху

Т.е. его голову? Первый элемент?
А как тогда у тебя описан класс? Как ты хранишь указатель на голову списка?