Помогите решить задачу по Delphi 7

[R@DiST]

Товарищи !!! плиз помогите решить задачу на Delphi 7 (на динамику):

type TE=...; {по желанию}
список=^звено;
звено:record
элем:TE;
след:список
end;

Описать и проверить процедуру, которая вставляет в конец списка L новый элемент E

[Хыиуду]

Пройти по списку от первого элемента до последнего, создать новый элемент, указатель "след" на последнем элементе перенаправить с NIL на свежесозданный