удаление элемента из списка c

Ответ от Jurii[гуру]
1) Если у тебя нигде не хранится длина списка, то нужно её посчитать:
Пусть Cur - указатель на текущий элемент списка, тогда
Size := 0; Tmp := Cur;
repeat
Tmp := Tmp^.Next; Inc(Size);
until Tmp = Cur;
2) Переменная Size хранит длину списка.
Значит при
- значении Size = 1 - список всего из одного элемента;
- чётном значении Size - удалять нужно (Size div 2)+1 элемент;
- нечётном значении Size - удалять нужно либо (Size div 2)+1, либо (Size div 2)+2 элемент, т. к. они равноудалены от текущего.
if Size > 1 then begin
DelPos := (Size div 2) + 1;
Tmp := Cur;
repeat
Pred := Tmp;
Tmp := Tmp^.Next;
until DelPos = 0;
{ Дошли до удаляемого элемента в Tmp, при этом Pred указывает на элемент перед ним }
Pred^.Next := Tmp^.Next; { Предыдущий в обход Tmp теперь будет переходить на следующий за Tmp }
Dispose(Tmp); { Удалили! }
end;