Рекурсия в процедуре (работа с массивом), Найти, используя рекурсивную процедуру, кол-во несовершенных элементов Опции

[arr_lenny]

Найти, используя рекурсивную процедуру, кол-во несовершенных элементов массива (возможно использование доп. подпрограммы)

Собсно код. При любых входных данных выдает ноль((
Ошибку помогите найти)

type mas=array [1..100] of integer;
var a:mas; i,n,t:integer;

function sov(x:integer):boolean;
var s,i:integer;
begin
s:=0;
for i:=1 to (x div 2) do
  if (x mod i)=0 then s:=s+i;
 if s=x then sov:=true
         else sov:=false;
end;

procedure kol(n:integer;a:mas; var k:integer);
begin
 if n=0 then k:=0
        else begin
              if sov(a[n])=false then k:=k+1;
              kol(n-1,a,k);
             end;
end;
begin
readln(n);
for i:=1 to n do
 readln(a[i]);

 kol(n,a,t);
 writeln(t);
end.