помогите решить через паскаль
найти среднее арифметическое элементов последовательности превосходящих некоторое число С, массив задан датчиком случайных чисел на интервале (-44,35),размер произвольный , значение С вводится с экрана

//Pascal ABC.NET 3.1 сборка 1219Const  n=10;Var c,i,k:integer; ar:array[1..n] of integer; r:real;begin readln(c); writeln('Array:'); for i:=1 to n do  begin   ar[i]:=random(-43,34);   if ar[i]>c then     begin     inc(k);     r:=r+ar[i];    end;   write(ar[i]:4); end; writeln; r:=r/k; write(r);end.Пример ввода:0Пример вывода:Array:  20 -23  23  18 -40 -16 -39  31 -12  2122.6