Если бы у нас был TurboVision (кто помнит), то там бы мы имели такое :
//структура
type
PFloatListItem=^TFloatListItem;
TFloatListItem=record
Value : double;
Next : PFloatListItem;
end;
//удобная функция
function FloatListItem(AValue: double; ANext: PFloatListItem): PFloatListItem;
begin
New(Result);
Result^.Value:=AValue;
Result^.Next:=ANext;
end;
//инициализация списка
var
List : PFloatListItem;
begin
List:=FloatListItem(100.10,
FloatListItem(200.20,
FloatListItem(300.30,
FloatListItem(400.40,
FloatListItem(500.50,
FloatListItem(600.60,
FloatListItem(700.70,nil)))))));