Tính tổng các ước

Cho dãy số nguyên dương A gồm N phần từ (N<51) hãy tính tổng các ước các phần tử trong dãy A(trừ 1 và chính nó)

uses crt;
var  N,i,j,tong:word;
        a:array[1..50] of word;
begin
        readln(N);
        for i:=1 to N do begin write('nhap phan tu ',i,':');
        readln(a[i]);
        end;
        i:=1;
        repeat
                for j:=2 to a[i] -1 do
                        if a[i] mod j = 0 then tong:=tong+j;
                inc(i);
        until i>N;
        write('Tong cac uoc la: ',tong);
        readln
end.