ТурбоПаскаль- подпрограммы: Определить в каком массиве отрицательное число встречается раньше

[darwin1]

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

[ZX Spectrum-128]

Function neg(a:mas;n:integer):integer;
  Var k,i:integer;
Begin
K:=0; // если функция возвращает 0, то отр. нет
For i:=1 to n do
  If a[i]<0 then
    Begin
       K:=i;
       Break;
     End;
  Neg:=k;
End;

[darwin1]

а можно полную программу ?

[Vanta11a]

Покажи, как матрицы вводишь.