Очереди: найти сумму всех произведений чисел, взятых по одному из третьей и четвертой очереди

uses crt;
const n = 10; //количество элементов в очередях
type plist=^tlist;
tlist=record
    zn:integer;
    next:pList;
end;
var  f1,l1,f2,l2,f3,l3,f4,l4:plist;  //4 очереди
     a,b,i,sum:integer;
 
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;
 
begin
  randomize;
  clrscr;
  new(l1);
  new(l2);
  new(l3);
  new(l4);
  sum:=0;
  writeln('Элементы 3-й очереди: ');
  for i:=1 to  n do
   begin
    a:=random(10);
    push(f3,l3,a);
    write(a,' ');
   end;
  writeln;
  writeln('Элементы 4-й очереди: ');
  for i:=1 to n do
   begin
    a:=random(20);
    push(f4,l4,a);
    write(a,' ');
   end;
  writeln;
  while (pop(f3,a)=true) and (pop(f4,b)=true) do
   begin
     sum:=sum+(a*b);
     push(f1,l1,a);
     push(f2,l2,b);
   end;
  while (pop(f1,a)=true) and (pop(f2,b)=true) do
   begin
     push(f3,l3,a);
     push(f4,l4,b);
   end;
  writeln('Сумма произведений = ',sum,', очереди восстановлены');
{  while (pop(f3,a)=true) do
   write(a,' ');
 writeln;                  по желанию  вывод восстановленных очередей
 while (pop(f4,a)=true) do
   write(a,' '); }
 readln;
end.