Структуры данных и алгоритмы, задачка Опции

[Хитрый_панк]

помогите разобратся плзззззззз....если не сложно оставлять коментарии и исходники какие ниб. :p2:
вот сама задачка:
Написать программу реализации очереди с помощью курсоров

Зарание благодарен

[volvo]

Показываю:

Код

program roots;
type
 point= ^item;
 item = record
   number: integer;
   next: point;
 end; { *** Этого не было *** }

var
 n: integer;
 r: point; { *** а не ^integer *** }
 first: point; { *** Этого тоже не было *** }
begin
 Writeln('Vvedite n');
 readln (n);

 first:=nil;
 while n>0 do
   begin
     New ( r );
     r^.Next:=first;
     r^.Number:=n;
     first:=r;
     n:=n-1; { *** Можно заменить на Dec(n); *** }
   end;
End.

P.S. А в каком это интересно компиляторе даже не показываются ошибки? Или все-таки показываются? Тогда в чем же проблема?... ;)