Определение 8 монеты в порядке убывания масс среди всех 16 монет

program zl;
uses crt;
const n=8;
var a,b:array[1..n] of integer;
 l,r,z,k,p,i:integer;
  begin
for i:=1 to n do begin
   write('a','[',i,'] ');
   read(a[i]);
   end;
for i:=1 to n do begin
   write('b','[',i,'] ');
   read(b[i]);
   end;
l:=1; r:=n;
 while  l>=r do begin
  z:=(l+r) div 2;
  k:=a[z]; p:=b[z];
   if k>p then begin
   a[r]:=a[z+1];
   b[l]:=b[z-1];
    end else
    a[l]:=a[z-1];
    b[r]:=b[z+1];
end;
 if a[z]>b[z] then
 writeln('8 moneta',a[z])
  else
  writeln('8 moneta',b[z]);
end.

program moneta;
uses crt;
 const n=8;
 var l,l1,r1,r,masa,masb,i,c:integer;
 a,b:array [1..n] of integer;
 begin
 for i:=1 to n do
 begin
  write('Вес серебряных монет ');
  read(a[i]);
 end;
  for i:=1 to n do
  begin
   write('Вес золотых монет ');
   read(b[i]);
  end;
 l:=1;r:=n;
 l1:=1;r1:=n;
 while (l<=r) and (l1<=r1) do
  begin
   masa:=(l+r) div 2;
   masb:=(l1+r1) div 2;
   c:=c+1;
    if a[masa]>b[masb] then
     begin
      l:=masa;r1:=masb;
       if b[masb]>a[masa+1] then
       begin
        writeln('монета под №8 по убыванию=', b[masb],'. Наименьшее количество взвешиваний=',c); r:=0;
   end; end
   else
   begin
   r:=masa;l1:=masb;
    if a[masa]>b[masb+1] then
   begin
    writeln('монета под №8 по убыванию=', a[masa],'. Наименьшее количество взвешиваний=',c); r:=0;end;
   end; end;
   end.