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

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

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.

Ошибку? Пожалуйста:

1) Передавать массив из 100 целых через стек - очень опрометчиво. Передавай как константную ссылку (все равно в подпрограммах массив не меняется)

2) Ну, считаешь ты считаешь, а когда заканчивается выполнение рекурсивной процедуры? Когда n = 0. Следовательно, тогда, перед выходом, K присваивается 0. А вот если поменять местами 18-ю и 19-ю строки:

procedure kol(n:integer;a:mas; var k:integer);
begin
 if n=0 then k:=0
        else begin
              kol(n-1,a,k); // сначала считаем, сколько в предыдущих элементах
              if sov(a[n])=false then k:=k+1; // и только потом проверяем текущий
             end;
end;

- то постоянного нуля в ответе уже не будет...

P.S. Я бы заменил sov(a[n]) = false на not sov(a[n])...

И

if s=x then sov:=true
         else sov:=false;

На sov := s=x;

Благодарствую, всё работает)
надеюсь, я когда-нибудь пойму рекурсию

"Чтобы понять рекурсию, нужно понять рекурсию..." (С)