СРОЧНО, помогите пожалуйста!)
В массиве подсчитать сумму элементов, которые не делятся на 7 без остатка. (Элементов массива:7.)

const n=7;var a:array[1..n] of integer;i,s:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(50); write(a[i]:4); end;writeln;s:=0;for i:=1 to n do if a[i] mod 7 <> 0 then s:=s+a[i];writeln('s = ',s);end.Пример:  26  37  12  38  21  45  19s = 177