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

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

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

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

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

не ругайте меня строго ...у меня тока началось изученме Паскаля...
я пытался задать очередь....покажите ошику и как ее исправить :p2:

Код

program roots;

  type
  point= ^item;
  item = record
  number: integer;
  next: point

      var n: integer;
          r: ^integer;
    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;
   end;
   End.