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

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

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

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

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

VOLVO спасбо за помощь! ;) я решил идти дальше)))
теперь я пытаюсь в эту прогу вставить процедуру - помещение в хвост...я знаю ,что должны быть строчки обращения к процедурам...но вот где их поставить чтобы происходила успешная добавка в хвост


вот такое дело....

Код

program roots;

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


  Function QueueEmpty(q:Tqueue):boolen;
    begin
    QueueEmpty:=(Q.head=nil)
    end;


  Procedure Pomestit'_v_hvost(var q:Tqueue; e:telem );
  var z:Tlist;
     begin
     new(z);
     z^.info:=e;
     z^.next:=nil;
          If QueueEmpty(q) then q.head:=z else q.tail^.next:=z;
          q.tail:=z
          end;


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

Код заключаем в теги !!!