Очередь.(Pascal)

[Mashul'ka]

Дан набор из 10 чисел. Создать очередь, содержащую данные числа в указанном порядке(первое в начале, последнее в конце), и вывести Р1 и Р2 на начало и конец очереди.

[diliana]

вот так обьявляете динамическую очередь

Type
  queue=^TQueue;{ссылочный тип}
  TQueue=Record{базовый тип-запись}
  	data : integer;
  	next : queue;
  end;

Var
  First, Last : queue;{указатели-начала и конца очереди}

вот процедура добавления элемента в очередь

Procedure Add(var First, Last : queue);
var
  temp : queue;{временная ссылочная}
begin
  Write ('Dobavit element:  ');
  Readln (x);
  New (temp); 
  temp^.data:=x;
  temp^.next:=Nil;
  If First = nil then First:=temp
   else Last^.next:=temp;
  Last:=temp;
end;

вот инициализация пустой очереди

First:=nil; Last:=nil;