Массив строк, поиск (PascalABC.NET)

[Родион19]

Найти в тексте (массив строк, с пунктуацией) слова, которые начинаются и заканчиваются одной и той
же буквой.
Признак окончания ввода - пустая строка.
Есть наработки, но только создания массива строк.

program lb2;
 
const
  punctuations = [' ', ',', '.', ';', ':', '-', '=', '+'];
  n = 80;
var
  s: string;
  a: array[1..n] of string;
  i: integer;
 
begin

  writeln('Введите текст');
  for i := 1 to n do
  begin
    readln(a[i]);
    if a[i] = s then
    break;
  end;
 
  сюда поиск таких слов 
  
 end.

Заранее спасибо!