Pascal 紧急求救！！！

大家好啊。小弟最近有麻烦了。请求各位大虾们的帮助！！请用Pascal 语言解决下列问题！！先建立一个由任意多个实数构成的文件（约定输入的数小于 - 1000时结束），然后用该文件的数据再建立一个递增的双链表。
谢谢各位大虾的支持了。谢谢。小弟的信箱是：[email protected]