看看这个程序是在那出错了,(100分)

程序如下:/请帮忙
program Project2;

uses
SysUtils;
Type stu=^st;
st=record
data:integer;
next:stu;
end;
var
head:stu;
procedure Create();
var
p:stu;
c:integer;
begin

head:=nil;
read(c);
while c<>100do
begin
new(p);
p^.data:=c;
p^.next:=head;
head:=p;
readln(c);
end;
end;
procedure outlink(p:stu);
var
q:stu;
begin
q:=p;
while q<>nildo
begin
writeln(q^.data);
q:=q^.next;
end;
end;

begin
create();
outlink(head);
readln;
end.

仅限于可以让你的程序运行：
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type stu = ^st;
st = record
data: integer;
next: stu;
end;
var
head: stu;
procedure Create();
var
p: stu;
c: integer;
begin
head := nil;
read(c);
while c <> 100do
begin
new(p);
p^.data := c;
p^.next := head;
head := p;
readln(c);
end;
end;

procedure outlink(p: stu);
var
q: stu;
begin
q := p;
while q <> nildo
begin
writeln(q^.data);
q := q^.next;
end;
end;

begin
create();
outlink(head);
readln;
end.

关键在于程序的第二行{$APPTYPE CONSOLE}是一个编译器指令，它告诉编译器本程序是
一个控制台程序,否则会发生I/O错误。

御键飞天说的很对
并不是所有用{}括起来的都是注释,比如{$APPTYPE CONSOLE}语句就是个编译器指令,
加上这句就是个控制台程序,运行后是个DOS窗口.
{$R *.DFM}就是引用与.PAS同名的DFM文件,即窗体文件.
{$R *.RES}就是引用与工程同名的资源文件.这样的例子很多

修改之后,怎么报出如下信息:
sytem.ini 文件[386enh]部分的keyboard=命令行指定的键盘驱动程序与当前的windows
版本不兼容.
要更新该问题,请从新安装windows安装程序.

哇，可能要重装系统了...
System.ini:
display=*vdd,*vflatd
keyboard=*vkd //************************
EMMExclude=C000-CFFF

有没有救了!

多人接受答案了。