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

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

1)Дано н чисел.Найти количество двузначных чисел. Все задачи нужно решить через For,While,Repeat.

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

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

var a:array [1..10] of integer;
  i,k,l:integer;
  
  begin
    randomize;
    for i:=1 to 10 do
      a[i]:=random(50)-10;
      for i:=1 to 10 do
        write(a[i],' ');
 for i:=1 to 10 do  
 
  while a[i]>=10 do
    begin
    a[i]:=a[i] mod 10;
    k:=k+1;
   if k=1 then begin
   l:=l+1;
   k:=0;
    end;
    end;
    writeln;
        writeln(l);
        
        readln;
        end.

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

В данном коде объявлены переменные:

a - массив из 10 элементов типа integer (целое число), которые инициализируются случайными числами от 0 до 99.
i, k, l - целочисленные переменные, используемые в цикле for. Цикл for внешним образом перебирает числа от 1 до 10, заполняя массив a случайными числами. Внутри второго цикла for каждое число из массива a выводится на экран. Далее следует условный блок while, который проверяет, есть ли в массиве a двузначные числа (т.е. числа, состоящие из двух цифр). Если такие числа есть, то их количество (k) увеличивается на единицу, а переменная l, которая хранит общее количество двузначных чисел, также увеличивается на единицу. Когда k становится равным 1, это означает, что двузначных чисел больше нет, и цикл while завершается. После этого выводится на экран значение переменной l. После завершения программы пользователю предлагается ввести любые данные, и если введенное число больше или равно 10, то оно автоматически разбивается на две цифры. Количество таких чисел (k) увеличивается на единицу, и переменная l, которая хранит общее количество двузначных чисел, также увеличивается на единицу. Когда k становится равным 1, это означает, что двузначных чисел больше нет, и цикл while завершается. После этого выводится на экран значение переменной l.