Паскаль.НАЙТИ ОШИБКУ!!!

[Настя Котова]

program queue_proj;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
type q_node=record
  pnext:^q_node;
  pback:^q_node;
  data:integer;
end;

type queue=record
  pbegin:^q_node;
  pend:^q_node;
  size:integer;
end;

type pq_node=^q_node;
type pqueue=^queue;

procedure push(q:pqueue; val:integer);
var p:pq_node;
begin
  getMem(p, sizeof(q_node));
  p^.data:=val;
  p^.pnext:=q^.pend;
  if(q^.size<>0) then
    q^.pend^.pback:=p
  else
    q^.pbegin:=p;
   q^.pend:=p;
   inc(q^.size);
end;

function pop(q:pqueue):integer;
var val:integer;
    p:^q_node;
begin
  if(q^.size<>0) then
  begin
    val:=q^.pbegin^.data;
    p:=q^.pbegin^.pback;
    freeMem(q^.pbegin);
    q^.pbegin:=p;
    dec(q^.size);
    pop:=val;
  end
  else
  begin
    writeln('Queue is empty!');
    pop:=0;
  end;
end;

var
  n,min,i,tmp,size:integer;
  q:queue;
begin
  q.size:=0;
  min:=$7FFFFFFF;
  writeln('Enter elements of queue(ctrl+z - stop)');
  repeat
  begin
    readln(n);
    push(@q, n);
  end
  until eof();
  for i:=1 to q.size do
  begin
    tmp:=pop(@q);
    push(@q, tmp);
    if min>tmp then
      min:=tmp;
  end;
  writeln('The minimum element is ', min);
  size:=q.size;
  for i:=1 to size do
  begin
    tmp:=pop(@q);
    if(tmp<>min) then
      push(@q, tmp);
  end;
  writeln('Queue after remove the minimum');
  for i:=1 to q.size do
  begin
    tmp:=pop(@q);
    push(@q, tmp);
    writeln(tmp);
  end;
  readln;
end.

Ниже задание( задание 2 Вариант 11)

[Вадим Мошев]

Может ещё чего-нибудь сделать вам?