Составить программу на языке Паскаль. Найти количество элементов одномерного массива А (10), больших 10

Будем считать, что (10) - это кол-во элементов массива. Тогда решение такое:var  A: array[1..10] of integer;  k, i: integer;begin  for i := 1 to 10 do  begin    writeln('Введите числа массива:');    readln(A[i]);        if A[i] > 10      then k := k + 1;  end;  writeln('Количество элементов, больших 10 - ', k);end.