Опредилить количество трех значных чисел в строке, содержащие группы цифр, разделеных пробелом - Pascal ABC

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

1)Напишите программу формирования и вывода массива размеров 6 х 3 , каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й равен числу, введенному с клавиатуры; 2-й равен- равен удвоенной сумме текущих индексов ; 3- равен однозначному числу,полученному датчиком случайных чисел.,,с 2)опредилить кол-во трех значных чисел в строке,содержащие группы цифр, разделеных пробелом

Решение задачи: «Опредилить количество трех значных чисел в строке, содержащие группы цифр, разделеных пробелом»

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

var
  a:array[1..6,1..3] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to 6 do begin
    write('Введите число ',i,' строки:');readln(a[i,1]);
    a[i,2]:=2*(i+2);
    a[i,3]:=random(10);
  end;
  writeln('полученный массив:');
  for i:=1 to 6 do begin
    for j:=1 to 3 do write(a[i,j]:10);
    writeln;
  end;
end.

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

Создается переменная a типа array[1..6,1..3] of integer, которая представляет собой массив из 6 строк, каждая из которых содержит 3 числа.
Задаются две переменные i и j типа integer, которые будут использоваться для перебора строк и групп цифр в массиве a.
Выполняется цикл for i:=1 to 6 do, который перебирает строки массива a.
Внутри цикла запрашивается ввод числа i-ой строки и записывается в переменную a[i,1].
Вычисляется значение a[i,2]: 2 умножить на (i+2), что дает нам сумму 2 и индекса строки, умноженную на 2.
Вычисляется случайное число от 1 до 10 и записывается в переменную a[i,3].
Выводится сообщение полученный массив: и начинается внутренний цикл for j:=1 to 3 do, который перебирает группы цифр в текущей строке.
В каждой итерации внутреннего цикла выводится значение a[i,j] с помощью функции write(a[i,j]:10).
После завершения внутреннего цикла выводится символ табуляции (writeln) для перехода на следующую строку.
По завершении внешнего цикла выводится символ табуляции (writeln) для перехода на новую строку.
Код завершается.