Линейный Двунаправленный Список

[D1mon]

Всем привет. Помогите плз написать процедуру формирования Линейного Двунаправленного списка и добавления туда элементов.
Задача:Сведения о кубиках:размер ребра, его цвет, материал. Определить кол-во деревянных кубиков с ребром 3 см и кол-во метал. кубиков с ребром > 5 cм.

P.S. Правильно ли описал?

 
uses crt;

type
sKybiki=^kybiki;
Kybiki=record

  Color :string;
  Size:integer;
  Material:real;
  next:sKybiki;
  prev:sKybiki;
end;
Var prev:word;beg:Skybiki;fin:Skybiki;P:skybiki;

[Min]

ну начало правильно)))) осталась самая малость
только материал наверно тоже string, а размер ребра лучше word (он же отрицательным все равно не будет)