ПОМОГИТЕ РЕШИТЬ ЧЕРЕЗ ПОДПРОГРАММУ И БЕЗ "рандома" Дано:массивы А(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 - 1
end;

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)<br> 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