Найти среднее арифметическое число отрицательных элементов массивов!!! - Pascal (94490)

Формулировка задачи:

ПОМОГИТЕ НАЙТИ ОШИБКУ!!! Прога что то не работает... Найти среднее арифметическое число отрицательных элементов массивов x(N), y(M), где M=20, N=24; через подпрограмму procedure (исходные массивы вывести на экран). через procedure.

uses crt;
type mas=array[1..24] of integer;
procedure Vvod(var v:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
v[i]:=random(50)-25;
end;
procedure Vyvod(var v:mas;n:byte;c:string);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to n do
write(v[i],' ');
writeln;
end;
procedure Sred(v:mas;n:byte;var s:real);
var i,k:byte;
begin
s:=0;k:=0;
for i:=1 to n do
if v[i]<0 then
  begin
   k:=k+1;
   s:=s+v[i];
  end;
s:=s/k;
writeln('Срeднее отрицательных=',s:0:2);
end;
var x,y:mas;
    sr:real;
begin
clrscr;
procedure Vvod(var v:mas;n:byte);
var i:byte;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('el[',i,]=');
  readln(v[i]);
end;
end.

Решение задачи: «Найти среднее арифметическое число отрицательных элементов массивов!!!»

Листинг программы

procedure Vvod(var v:mas;n:byte;m:byte);
Var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to m do
  v[i]:=random(50)-25;
end;

Объяснение кода листинга программы

В данном коде на языке Pascal реализована процедура ввода данных в массив. Она получает на вход три параметра:

v:mas - ссылка на массив, в который необходимо выполнить ввод данных.
n:byte - количество строк, которые необходимо заполнить.
m:byte - количество столбцов в каждой строке. Внутри процедуры объявлены две переменные:
i:integer - счётчик строк.
j:integer - счётчик столбцов. Затем происходит два вложенных цикла, которые заполняют массив случайными числами от -25 до 25. Цикл for i выполняет заполнение строк, а цикл for j - столбцов внутри каждой строки. Выполнив данную процедуру, можно приступить к вычислению среднего арифметического числа отрицательных элементов массива.