{* Задача 509 *}

Unit ZADACH509;
Interface
Implementation
Begin
 writeln('Текстовый файл f разбит на непустые строки. Подсчитать число строк, начинающихся и оканчивающихся одним и тем же символом.');
End.

Program zadach509;

Uses zadach509.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  t   : text;
  s   : String;
  kol : integer;
Begin
  kol := 0;
  writeln; {* Пустая строка *}
  assign(t, 't.txt'); {* Подключение к файлу 't.txt' через переменную t *}
  reset(t); {* Чтение из файла через переменную t *}
  While Not eof(t) Do {* Если в файле ещё есть данные, то продолжаем *}
  Begin
    readln(t, s);
    writeln(s);
    If s[1] = s[length(s)] Then
      inc(kol); {* Увеличиваем kol на 1 *}
  End;
  close(t); {* Закрытие файла *}
  writeln(Kol,’ strok, gde 1 bukva = posledney bukve’);
  writeln(’by Adminadmin.ru’);
  readln; {* Приостановка программы. Ожидание Enter *}
End.