Склавиатуры вводится 10 чисел[-100; 500] найти а)сумму всех частных чисел б) количество всех кратных 5 ,и не оканчивающихся на нуль

Program znanija;var i,n,j,sum:integer;s:string;a:array[1..100] of integer;beginn:=0; sum:=0;for i:=1 to 10 do begin  writeln('Введите ',i,'-ый элемент массива [-100;500]');  read(a[i]);  s:=inttostr(a[i]);  j:=length(s);  if (a[i] mod 5 = 0) and (strtoint(s[j])<>0) then n:=n+1;  if a[i] mod 2 = 0 then sum:=sum+a[i];   end;writeln;writeln; writeln('Кол-во всех чисел кратных 5 и не оканчивающихся на ноль ',n);writeln;writeln('Сумма всех четных чисел ',sum);end.