Приоритетная очередь на массиве с циклическим заполнением без сдвига

 const
     min = -maxint;
 type     
pZapros =^tZapros;     
tZapros = record       
Pri  : Integer;       
next : pZapros;     
end;   
var     
Beg,Cur : pZapros;     
Sel : Byte;     
procedure View;   
var     
Cur : pZapros;   
begin     
Cur:=Beg; 
writeln;  
write('Очередь ');     
if cur^.next=nil then begin       
writeln('пуста.');       
exit;     
end;     
Cur:=Cur^.Next;     
while cur<>nil do begin       
write(Cur^.Pri:4);       
Cur:=Cur^.Next;     
end;     
writeln;   
end;     
procedure SetZapros;   
var     
Cur,Store : pZapros;     
p : Integer;   
begin     
Write('Введите приоритет запроса : '); readln(p);
     Cur:=Beg;     
while (Cur^.next<>nil) and (Cur^.Next^.Pri>P) do        
Cur:=Cur^.Next;     
Store:=Cur^.Next;     
New(Cur^.Next); Cur:=Cur^.Next;     
Cur^.Next:=Store; Cur^.Pri:=p;     
View;   
end;     
 
procedure OutZapros;   
var     
Cur : pZapros;   
begin     
Cur:=Beg^.next;     
if Cur=nil then begin       
writeln('=== запрос не может быть выдан, очередь пуста.');       
exit;     
end;     
Writeln('=== Выдан запрос с приоритетом  ',Cur^.Pri); Cur^.Pri:=min;
     Dispose(Beg); beg:=cur; 
    writeln;   
end;
    Begin   
 New(Beg); beg^.Next:=nil; beg^.Pri:=min;  
  repeat 
     writeln; 
     writeln('1 - Установить запрос.');      
writeln('2 - Выдать запрос.');
      writeln('3 - Просмотр очереди запросов.');
      writeln('4 - Выход из программы.');
      write('Ваш выбор : '); Readln(Sel);
      case Sel of        
1: SetZapros; 
       2: OutZapros; 
       3: View;
      end;    
until Sel=4;      
while Beg<>nil do begin      
Cur:=Beg^.Next;      
Dispose(Beg);      
Beg:=Cur;    
end;  
End.