СРОЧНО!!!! РЕШАЕТСЯ ОЦЕНКА
что не так с программой?

Дан целочисленный массив из 40 элементов. Элементы

массива могут принимать значения от - 10000 до 10000.

Написать алгоритм, который находит и выводит

среднее арифметическое всех отрицательных элементов

массива, оканчивающихся цифрой 7. Гарантируется,

что хотя бы один такое элемент в массиве есть.

Исходные данные объявлены так, как показано ниже.

Запрещается использовать переменные, не описанные

ниже, но разрешается не использовать часть из них.



const N=40;

var a: array [1..N] of integer;

i, s, r, x: integer;

sr: real;

begin

for i:=1 to N do readln(a[i]);

s:=0;

r:=0;

for i:=1 to N do

if (a[i] mod 10 =7)and(a[i]<0)and(a[i]in[-1000..-1])then

begin

s:=s+a[i];

r:=r+1;

end;

if s=0 then

writeln('net')

else

begin

sr:=s/r;

writeln('sr=',sr);

end;

end.