найти среднее арифметическое элементов последовательности, превосходящих число 12. массив задан датчиком случайных чисел на интерваде [-44,35]. Размер массива -21 элемент

Const N = 21;Var   A:array[1..N] of integer;   i,k:integer;   S:real;Beginrandomize;S:=0;k:=0;Write('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(80)-44;    Write(A[i],' ');    if A[i]<=12 then       Begin       S:=S+A[i];       k:=k+1       End;    End;WriteLn;WriteLn('Sr = ',S/k)End.