Дан массив A(m), m16 . Отыскать сумму S частей, удовлетворяющих условию

program zz1;
var i, S, k, n:integer; // задаем переменные целого типа
m:array [1..16] of integer;
begin
write( введите количество частей в массиве ); read(n);
for i:=1 to n do // записываем в массив числа случайным образом
m[i]:=random(21);
for i:=1 to n do //выводим массив на экран
write(m[i], );
writeln; // переходим на новейшую строчку для вывода ответа
for i:=1 to n do // обретаем сумму и их количество
if m[i]gt;12 then begin s:=s + m[i];k:=k + 1;end;
writeln( сумма частей великих 12 = ,s); // выводим ответ
write( количество частей великих 12 = , k);
end.