понять в чём ошибка((((

[Nastenova]

Реализовать стек на базе очереди с приоритетами. Использовать массив целых чисел.

Листинг:

program f1;
uses crt;

type uk=^elem;
     elem=record
       inf:integer;
       next:uk;
     end;
type mas=array [1..8] of integer;
var beg:uk;
massiv:mas;
l,r,qq:integer;


procedure massive(var A:mas);
var n,i:integer;
begin
write ('vvedi chislo');
i:=0;
for i:=1 to 8 do
begin
read(n);
A[i]:=n;
n:=0;
end;
writeln('massiv sozdan');
end;

procedure sort(var P:mas);
   var  i,j,kol:integer; new_p:mas;
   begin
      for i:=1 to 8 do  
        begin
          kol:=0;
          for j:=1 to 8 do 
            if p[i]>=p[j] then inc(kol);
          while new_p[kol+1]=p[i] do
            inc(kol);
          new_p[kol+1]:=p[i];
        end;
   end;



procedure create(var A:mas);
var i:integer;
    temp:uk;
begin
 for i:=1 to 8 do
  begin
   new(temp);
   temp^.inf:=A[i];
   temp^.next:=beg;
   beg:=temp;
  end;
end;

procedure vivod;
var temp:uk;
begin
 temp:=beg;
 while temp<>nil do
  begin
   write(temp^.inf:4);
   temp:=temp^.next;
  end;
 end;

 begin
 clrscr;
  beg:=nil;
  massive(massiv);
  sort(massiv);
  readln;
  writeln('gotov k sozdaniu steka');
  for qq:=1 to 8 do
  begin
  write(massiv[qq]);
  readln;
  end;
  create(massiv);

  vivod;
  readln;
  writeln('zazazdcwsfw')
 end.

помогите плиииз

[sabbathist]

Что-то совсем непонятно.
Стек это одна структура данных. Очередь с приоритетами - другая.
А код вообще не должен компилироваться.

[Nastenova]

Вот и я не знаю что делать(((
Это последнее задание в расчётной работе...(((

[sabbathist]

Объясните хотя бы, что неясно. А то непонятно, что советовать делать

[Nastenova]

у меня программа впринципе работает,только почему то не сортирует введёные мною числа...не могу понять где ошибка((((