Рекурсивная обработа массива

[paravoz1k]

Нужно определить количество отрицательных элементов
Вот моя нароботка:

function Rekursia(const x: array of integer; start: integer; finish: integer ; n: integer): integer;


begin
if start > finish then Rekursia :=n
else
begin
if x[start] < 0 then n := n + 1;
rekursia(x,start+1,finish,n);
end;
end;

x - массив, старт - начальный элемент(0), финиш - конечный(колво элтов -1), n - количество отрицательных членов(в самом начале задаю как 0).

Не работает...выдается что-то типа
20490220


Кто может помочь помогите...

[puporev]

uses crt;
const  nmax=100;
type  mas=array[1..nmax] of integer;
function Count(a:mas;n,i:integer):integer;
begin
if a[i]<0 then
   begin
    if i=n then Count:=1
    else Count:=1+Count(a,n,i+1)
   end
  else
   begin
    if i=n then Count :=0
    else Count:=Count(a,n,i+1)
   end;
end;

var a:mas;
    n,sum,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)-8;
  write(a[i]:4);
 end;
writeln;
sum:=Count(a,n,1);
writeln('Количество отрицательных элементов массива = ', sum);
readln
end.