Динамические структуры данных Опции

[ZanakZ]

Как решить задачу?

type TЭ = real;
список= ^звено;
звено: record элем: TЭ;
след: список
end;
Описать и проверить процедуру, которая вставляет в непустой список L, элементы которого упорядочены по убыванию, новый элемент Е так, чтобы сохранялась упорядоченность.

Заранее спасибо!