Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов - Free Pascal

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

Вводится массив К×М из слов. Подсчитать количество слов,размером больше 5 символов.

Решение задачи: «Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов»

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

Uses crt;
Const m=3;n=3;
Var i,j,k:integer; a:array[1..n,1..m]of string;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to m do
   begin
    writeln('Vvedite a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j],' ');
   writeln;
  end;
 k:=0;
 for i:=1 to n do
  for j:=1 to m do
   if length(a[i,j])>5 then inc(k);
 write('Slov bolshe 5 simvolov=',k);
End.

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

Программа использует библиотеку CRT (Console I/O) для работы с консолью.
Задаются константы n и m, которые определяют размер матрицы a.
Создается массив a типа array[1..n,1..m]of string для хранения строковой матрицы.
В цикле for происходит заполнение матрицы a с помощью функции readln().
Цикл for выводит содержимое матрицы a на экран с помощью функции writeln().
Переменная k инициализируется нулем и используется для подсчета количества слов длиннее 5 символов.
В цикле for происходит проверка длины каждого элемента матрицы a и увеличение переменной k при выполнении условия.
Функция writeln() выводит результат подсчета на экран.
Программа завершается.