Ребят, помогите очень срочно. Нужно написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C(10), не меньших 10

varc:array[1..10] of integer;SrAr:real;k, i, s:integer;begins:=0;{Обнуляем счетчик элементов(к) и сумму(s)}k:=0;randomize;for i:=1 to 10 do {заполняем массив} c[i]:=random(50);for i:=1 to 10 do if (c[i] mod 2=0) and (c[i]>10) then {если элемент массива четный и больше 10 увеличиваем счетчик к, увеличиваем сумму s}    begin   k:=k+1;    s:=s+с[i];   end;SrAr:=s/k;for i:=1 to 10 do {выводим массив}write(c[i], ' ');writeln;writeln('Sr.Arifmeticheskoe=', SrAr:5:2);end.