const
  symbols: array of char = (#32, #33, #34, #35, #36, #37, #38, #39, #40, #41,
                            #42, #43, #44, #45, #46, #47, #58, #59, #60, #61,
                            #62, #63, #91, #92, #93, #94, #95, #96, #123, #124,
                            #125, #126);

begin
  var st := ReadLnString('Введите текст:');

  // Сформируем массив слов - Start
  var arr := st.Split(symbols);
  var count := 0;
  for var i := 0 to arr.Length - 1 do
    if arr[i].Length = 0 then count += 1 else arr[i - count] := arr[i];
  SetLength(arr, arr.Length - count);
  // Сформируем массив слов - End

  WriteLn('Массив слов: ', arr);
  count := 0;
  for var i := 0 to arr.Length - 1 do
  begin
    var j := 0;
    while j <= arr.Length - 1 do
    begin
      if UpCase(arr[i][arr[i].Length]) = UpCase(arr[j][1]) then count += 1;
      j += 1;
    end;
  end;
  WriteLn('Результат: ', count);
end.