ПОМОГИТЕ РЕШИТЬ ЧЕРЕЗ ПОДПРОГРАММУ И БЕЗ "рандома"

Дано:массивы А(8),В(11). Определить в каком массиве отрицательное число встречается раньше. Номер первого отрицательного элемента в массиве находить в подпрограмме.

const  lim = 11;type  V = array[1..lim] of integer;function FirstNegative(a: V; n: integer): integer;var  i: integer;begin  i := 0;  Result := 0;  repeat    i := i + 1;    if a[i] < 0 then Result := i  until (Result > 0) or (i > lim)end;procedure InpMass(var a: V; var n: integer; mName: string);// Организует ввод массиваvar  i, p: integer;begin  writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода');  i := 0;  repeat    read(p);    i := i + 1;    if p <> 7777 then a[i] := p;  until (p = 7777) or (i > lim);  n := i - 1end;var  a, b: V;  m, n, p, q: integer;begin  InpMass(a, m, 'A');  InpMass(b, n, 'B');  p := FirstNegative(a, m);  q := FirstNegative(b, n);  if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p)  else writeln('Номер первого отрицательного элемента в массива B: ', q)end.Тестовое решение:Вводите элементы массива A; 7777 - конец ввода37 14 -25 32 30 -29 38 27 7777Вводите элементы массива B; 7777 - конец ввода33  -36   23  -17   -3  -16  -33   33  -48  -39   30 7777Номер первого отрицательного элемента в массива B: 2