Подсчитать количество и сумму элементов массива, больших 10 - Turbo Pascal

const n=30;
var a:array[1..n] of integer;
i,cnt,sum:integer;
BEGIN
Randomize;
cnt:=0;
sum:=0;
For i:=1 to n do a[i]:=Random(20);
For i:=1 to n do
  IF a[i]>10 THEN begin
                         cnt:=cnt+1;
                         sum:=sum+a[i];
                         end;
Writeln (sum);
Writeln (cnt);
END.