Еще одна задача, На процедуры и ф-ии Опции

[Warn]

Нужно подсчитать общее количество отрицательных элементов в массивах Х(50) и Y(70).

Я пробовал так

Program Counter;
 Const m=5; n=7;
 Type MasX = Array [1 .. m] Of Integer;
      MasY = Array [1 .. n] Of Integer;
 Var Count, i: Integer;
    MX: MasX;
    MY: MasY;

Procedure ReadMas(Var X: MasX; Y: MasY);
 Begin
      WriteLn('BBeDuTe MaccuB X(', m,')');
       For i:=1 To m Do Read(X[i]);
      WriteLn('BBeDuTe MaccuB Y(', n, ')');
       For i:=1 To n Do Read(Y[i]);
 End;

Procedure Counting(Var X: MasX; Y: MasY);
 Begin
      Count:=0;
      For i:=1 To m Do
       If X[i]<0 Then Count:=Count+1;
      For i:=1 To n Do
       If Y[i]<0 Then Count:=Count+1;
 End;

Begin
     ReadMas(MX, MY);
     Counting(MX, MY);
     WriteLn(Count);
     ReadLn
End.

Но почему-то счетчик остаётся равен 1. Где ошибка? И тот же вопрос: Как сделать программу универсальной, чтобы в процедуре задавался размер массива?