Нужно полностью составить программу,от начала и до конца: "сформируйте одномерный массив из 20 целых чисел больших 10,но меньших 20 случайных образом.определите сколько элементов массива равны 17 "

Var  a: array [1..20] of integer; 
       i, k: integer;
begin 
  for i := 1 to 20 do   begin   
    a[i] := random(11, 19);   
    if a[i] = 17 then k := k + 1; 
  end; 
  writeln(a); 
  writeln(k);
end.