Нужно подсчитать общее количество отрицательных элементов в массивах Х(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. Где ошибка? И тот же вопрос: Как сделать программу универсальной, чтобы в процедуре задавался размер массива?

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

Procedure ReadMas(Var X: MasX; var Y: MasY);
var i : byte;
 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(X: MasX; Y: MasY);
var i : byte;
 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.

Фига прикол.. Только ответа я не получил: как сделать программу универсальной?

Работа с динамическими массивами

Спасибо!
А на заметку: В той ссылке.. но после определения начальной длинны Еще и выделили.. Длины пишется с одной "н" Просто сразу в глаза бросается.

Форум филологов и любителей русского языка в другом месте. А вообще исправим.

Ты бы лучше Паскалем занялся, профессор !!!