Дан массив a(m), m≤16 . найти сумму s элементов, удовлетворяющих условию ai > 12 , и их количество k . вывести на печать исходный массив и величины s и k

Const n=16;
var a: array[1..n] of integer;
    i,k,s,m: integer;
begin
Randomize;
writeln('размер массива(<=16):  ');
readln(m);
s:=0; k:=0;
Writeln('Исходный массив');
for i:=1 to m do
 begin
  a[i]:=Random(100)-50;
  Write(a[i]:4);
  if a[i]>12 then
   begin
    s:=s+a[i];    k:=k+1;
  end;
 end;
 Writeln; writeln('число элементов >12 = ',k,' сумма = ',s);
 end.