Написать процедуру перестановки элементов очереди - Pascal ABC

type
  pcher = ^cher;
  cher = record
    inf: integer;
    link: pcher;
  end;
 
var
  beg, ent: pcher;
  a, n, i: integer;
 
procedure add(b: integer);
var
  p: pcher;
begin
  new(p);
  
  p^.inf := b;
  p^.link := nil;
  if beg = nil then
    beg := p
  else
    ent^.link := p;
  ent := p;
end;
 
 
procedure zmincher;
var
  p, q: pcher;
begin
  ent^.link := beg;
  q := beg;
  beg := beg^.link;
  q^.link := nil;
end;
 
procedure print;
var
  p: pcher;
begin
  p := beg;
  while p <> nil do
  begin
    writeln(p^.inf);
    p := p^.link;
  end;
end;
 
procedure del;
var
  p: pcher;
begin
  while ent <> nil do
  begin
    p := ent;
    ent := ent^.link;
    dispose(p);
  end;
end;
 
begin
  write('Введите количество элементов очереди: ');
  readln(n);
  beg := nil; ent := nil;
  for i := 1 to n do
  begin
    write('введите ', i, '-ый элемент очереди: ');
    readln(a);
    add(a);
  end;
  print; // до перестановки
  zmincher;
  writeln('Перестановка элементов очереди из x(1), x(2),..., x(n) в x(2),x(3),…,x(n),x(1): ');
  print; // после перестановки
  del;
end.