Функции+массивы Опции

[-Виталий-]

Напишите функции для вычисления суммы отрицательных элементов двух
одномерных массивов произвольной длины (массива из вещественных и массива
целочисленных элементов).

[volvo]

Почему выдаёт ошибку 202: Stack overflow error. ????:

Потому что у тебя бесконечная рекурсия:

function sumv:real; begin
for i:=1 to m do if a[i]<0 then sumv:=sumv{<--- Это - рекурсивный вызов !!! }+a[i]; end;

, и ниже по тексту то же самое...