ПаскальСоздать массив a из десяти целых чисел, принадлежащих промежутку [0;25). Вывести полученный массив на экран. Подсчитать k - количество элементов массива, значение которых превышает 12.Помогите пожалуйста!! Очень нужно!!

Var a:array[1..10] of integer;
     i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln(Элементов массива превышающих 12: ,k);
end.