Очереди.Подправить готовый код.

uses crt;
type plist=^tlist;
tlist=record
    zn:integer;
    next:pList;
end;
 
 
procedure Push(var first,last:plist;a:integer);
var p:plist;
begin
  new(p);
  p^.zn:=a;
  p^.next:=nil;
  if (first=nil) then
     first:=p
  else
   last^.next:=p;
  last:=p;
end;
 
 
function Pop(var first:pList;var a:integer):boolean;
var
 p:pList;
begin
  if (first=nil) then
   begin
    pop:=false;
   end
  else
  begin
    a:=first^.zn;
    p:=first;
    first:=first^.next;
    dispose(p);
    pop:=true;
  end;
end;
 
procedure Push1(var first1,last1:plist;a:integer);
var p:plist;
begin
  new(p);
  p^.zn:=a;
  p^.next:=nil;
  if (first1=nil) then
     first1:=p
  else
   last1^.next:=p;
  last1:=p;
end;
 
 
function Pop1(var first1:pList;var a:integer):boolean;
var
 p:pList;
begin
  if (first1=nil) then
   begin
   pop1:=false;
   end
  else
  begin
    a:=first1^.zn;
    p:=first1;
    first1:=first1^.next;
    dispose(p);
    pop1:=true;
  end;
end;
 
procedure Push2(var first2,last2:plist;a:integer);
var p:plist;
begin
  new(p);
  p^.zn:=a;
  p^.next:=nil;
  if (first2=nil) then
     first2:=p
  else
   last2^.next:=p;
  last2:=p;
end;
 
 
function Pop2(var first2:pList;var a:integer):boolean;
var
 p:pList;
begin
  if (first2=nil) then
  begin
   pop2:=false;
  end
  else
  begin
    a:=first2^.zn;
    p:=first2;
    first2:=first2^.next;
    dispose(p);
    pop2:=true;
  end;
end;
 
var  first,first1,first2:plist;
     last,last1,last2:plist;
     a,s,i,m,j:integer;
 
begin
 clrscr;
 randomize;
 first:=nil;  {пустая}
 first1:=nil;
 first2:=nil;
 new(last);
 new(last1);
 new(last2);
 writeln('Вторая очередь:');
 for i:=1 to 10 do
  begin
   a:=random(10);
   push1(first1,last1,a);
   write(a,' ');
  end;
 writeln;
 writeln('Третья очередь:');
 for i:=1 to 10 do
  begin
   a:=random(10);
   push2(first2,last2,a);
   write(a,' ');
  end;
  writeln;
  while pop1(first1,i)=true do
   begin
    if not odd(i) then
     s:=s+i;
     push(first,last,i);
   end;
   Writeln('Сумма = ',s);
   writeln('Прежний вид первой очереди: ');
   while pop(first,i)=true do
    begin
     push1(first1,last1,i);
     write(i,' ');
    end;
   writeln;
   while pop1(first1,i)=true do  {первая очередь очищается}
    write('-');
   writeln;
   while first2<>nil do
    begin
     m:=9;
     a:=0;
     while pop2(first2,i)=true do
      begin
       if i<m then
        m:=i;
       push(first,last,i);
      end;
     while pop(first,i)=true do
      if i<>m then
       push2(first2,last2,i)
      else
       inc(a);
     push1(first1,last1,m);
     for j:=1 to a-1 do
      push1(first1,last1,m);
    end;
  writeln('Отсортированая 3-я очередь:');
  while pop1(first1,i)=true do
   write(i,' ')
end.