Массивы

[Beto4ka]

Помогите пожалуйста, хотя бы идею подайте.
вот текст:
Дан одномерный массив, насчитывающий заданное количество элементов. Элементами массива являются слова. Определить количество слов, которые начинаются с той же буквы, на которую кончаются.

[igor_564]

CONST n = 10;  {Общее число слов в массиве}
VAR mas : array [1..n] of string; {Массив слов}
       i      : integer; {Счётчик}
       k     : integer;  {Число подходящих слов}
      slovo: string;    {Текущее проверяемое слово}
      dlinna: integer; {Длинна текущего слова и номер последнего символа}
BEGIN
 writeln(' Введите ', n, ' слов: ');     {Вы не указали способ ввода массива}
 for i := 1 to n do readln (mas[i]);
 
 for i := 1 to n do
                         begin
                         slovo := mas[i];
                         dlinna := length (slovo); {Функция legth возвращает длинну слова}
                         if slovo [1] = slovo [dlinna] then inc (k); {Если первый символ в слове равен последнему, то число подходящих слов увеличивается на единицу}
                         end;

 writeln(' В массиве', k, 'слов заканчивающихся той же буквой, которой начинаются.');
 readln;
END.

Пхх, успел.

[Beto4ka]

Спасибо вам огромное)вы мне очень помогли)