Найти сумму и количество двузначных элементов массива - Turbo Pascal

Формулировка задачи:

Дан массив случайных чисел производной размерности.Найти сумму и количество двузначных элементов массива. Желательно решить задачу через Randome как то так по моему)

Решение задачи: «Найти сумму и количество двузначных элементов массива»

Листинг программы

writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(200);
  write(a[i]:4);
  if a[i] in [10..99] then
   begin
    k:=k+1;
    s:=s+a[i];
   end;
 end;

Объяснение кода листинга программы

Исходный массив:

Выводится сообщение «Исходный массив:»
Запускается цикл for, который выполняется от 1 до n (предполагается, что n заранее задано и известно)
Для каждого элемента массива i от 1 до n выполняется: — a[i]:=random(200); — элемент i массива a присваивается случайное число от 0 до 199 — write(a[i]:4); — выводится значение элемента i массива a — если значение элемента i массива a находится в диапазоне от 10 до 99, то: — k:=k+1; — увеличивается значение переменной k на 1 — s:=s+a[i]; — увеличивается значение переменной s на значение элемента i массива a
Выводится сообщение «Сумма двузначных элементов: k, сумма двузначных элементов: s».