Определить, в каком массиве отрицательное число встречается раньше

const n=8;m=11;
type mas = array[1..m] of integer;
procedure gen(var a:mas; d:integer);
var i:byte;
begin
  for i:=1 to d do begin
    a[i]:=random(21)-10; write(a[i],' ');
  end;
  writeln;
end;
 
function otr(a:mas; d:integer):byte;
var i:byte;
begin
  for i:=1 to d do
    if a[i]<0 then begin
      otr:=i; break;
    end;
end;
 
var a,b:mas;
    ch1,ch2:byte;
begin
  randomize;
  gen(a,n); gen(b,m);
  ch1:=otr(a,n); ch2:=otr(b,m);
  if ch1=ch2 then write('Одинаково')
    else if ch1<ch2 then write('В первом массиве раньше')
      else write('Во втором массиве раньше');
end.

 Program Lr;
   const n=10; const m=12;
   type mass= array [1..20] of integer;
 
   var C,X:mass;
   nul1,nul2,z:real;
   
   Procedure vvod (var C:mass; n: integer);
   var i:integer;
   begin for i:=1 to n do begin C[i]:= random (19)-9; write(C[i]:3);
   end;  end;
   
   Procedure Poisk (C:mass; n: integer; var nul:real);
   var i:integer;
   begin nul:=0;
   for i:=1 to n do begin
   if C[i]=0 then begin nul:=nul+1;;end; end;end;
   begin
   randomize;
   write ('C');vvod(C,n); writeln;
   Write ('X');vvod(X,m);    writeln;
   poisk(c,n,nul1);poisk(X,m,nul2);
   Z:=(nul1/2)+(sqr(cos(nul2)));
   write('Нули в C=',nul1); writeln;write('Нули в X=',nul2);     writeln;
   write ('Z=',z);
   end.