{* Количество слов начинающихся и заканчивающихся на одну букву *}

Unit PROGRAM6595;
Interface
Implementation
Begin
 writeln('Количество слов начинающихся и заканчивающихся на одну и ту же букву');
End.

Program pas;

Uses PROGRAM6595.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  F   : Text;
  S   : String;
  x   : Integer;
  i   : Integer;
  ch1 : char;
  ch2 : char;
Begin
  Assign(F, '1.txt'); { Связываем файловую переменную с иминем файла }
  Reset(F); { Инициализируем фал на перезапись }
  Repeat { Обьявляем цикл }
    Readln(f, S); { Считвыаем в процессе выполнения цыкла все строики из файла в масив }
  i := length(S); { Определяем длину считываемой строки }
  ch1 := S[1]; { Получаем значение первого символа из полученой строки }
  ch2 := S[i]; { Смотрим последний символ стрики }
  If ch1 = ch2 Then { Проверяем равны ли эти 2 символа }
    inc(x); { Если равны то увеличиваем счётчик на 1 }
  Until EOF(F); { Цыкл будит выполнятся до тех пор, пока не обнаружится конец файла F }
  Close(F); { Закрываем файл }
  writeln('Всего строк, имеющих в начале и в конце одинаковый символ:: ', x); { Пишим итог }
  Readln; {* Приостановка программы. Ожидание Enter *}
End.