Найти все слова, начинающиеся и заканчивающиеся одной и той же буквой - Turbo Pascal

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

Дан массив из слов A(k). Найти все слова, начинающиеся  и заканчивающиеся одной и той же буквой.

Решение задачи: «Найти все слова, начинающиеся и заканчивающиеся одной и той же буквой»

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

Const nmax=30;
Var A:array[1..nmax] of string;
    i,k:byte;
Begin
    write('K<=',nmax,': ');readln(k);
    For i:=1 to k do
    Begin
      write(i,' слово = ');
      readln(A[i]);
    End;
    writeln('Слова начинающиеся и заканчивающиеся одной и той же буквой');
    For i:=1 to k do
     if A[i]<>'' then
      if A[i][1]=A[i][Length(A[i])] then writeln(A[i]);
    readln;
End.

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

Данный код написан на языке Turbo Pascal и предназначен для поиска всех слов, начинающихся и заканчивающихся одной и той же буквой. В начале кода объявляются две константы: nmax, которая определяет максимальное количество слов в массиве A, и k, которая является числом, введенным пользователем и ограничивает количество слов для обработки. Затем объявляется переменная A типа array[1..nmax] of string, которая представляет собой массив строк, в котором будут храниться слова. Далее идет цикл for, который проходит по каждому слову в массиве A. Внутри цикла выводится номер текущего слова и запрашивается само слово. Затем проверяется, не пустое ли это слово. Если слово не пустое, то проверяется, совпадает ли первая и последняя буква этого слова. Если да, то слово выводится на экран. После завершения внутреннего цикла выводится сообщение о том, что найдены слова, начинающиеся и заканчивающиеся одной и той же буквой. В конце кода идет еще один цикл for, который повторяется столько раз, сколько было введено слов. В этом цикле проверяется, не пустое ли текущее слово. Если слово не пустое, то оно выводится на экран. Таким образом, данный код позволяет найти все слова, начинающиеся и заканчивающиеся одной и той же буквой, и вывести их на экран.