建链表问题(27分)

题目是：编写一个过程，将读入的一串整数存入链表， 并统计整数的个数。

我想在控制台程序里建个链表。
我在delphi7中先新建一个console Application(控制台程序)，然后在里面输入如下代码：

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
Tpoint=^rec;
rec=record
data:integer;
next:Tpoint;
end;
procedure creat(var h:Tpoint;var n:integer);
var sucp,prep:Tpoint;
intx:integer;
begin
n:=0;h:=nil;read(intx);
while intx<>9999 do
begin
new(prep);
n:=n+1;
prep^.data:=intx;
if n=1 then h:=prep
else sucp^.next:=prep;
sucp:=prep;
read(intx);
end;
writeln(intx,' ',n);
dispose(prep);
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('建链表：');
　creat;
readln;
end.

按f9后，它提示我creat少参数，可是我真的不知道该加什么参数了，各位能帮我看看，并帮我写完这段程序吗？要整个程序哦，与我写的内容有重复的地方完全可以复制过去的。这是我第一次在这儿发帖问问题，希望各位能帮忙啊，谢谢了先。

晕，此问题已解决，版主能不能把我的分还原啊？

版主死哪去了！！！！出来说句话！！！

自已解决了问题不是挺好的嘛，怎么责怪版主，我正缺分，给我吧[]

脾气别那么躁嘛，小心上火，呵呵，如果你的问题没有任何人回答。你就可以收回分的，但是，一旦有人回答了，还是不要想着要回去的好，要知道这可是泼出去的水哦

嘿嘿，给你们两了

缺分的那位兄弟我多给了一点