2. Дан текстовый файл. Напишите программку, в которой считывается информация построчно

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

function LexRepeat(Self:string):(string,integer); extensionmethod;
begin
  Writeln(Self);
  var aw:=Self.MatchValues('\b\w+\b').ToArray;
  if aw.Countgt;1 then
    Result:=(aw[0],aw[1:].Where(w-gt;LowerCase(w)=LowerCase(aw[0])).Count)
  else Result:=(aw[0],0)
end;

begin
  ReadLines('Pushkin2.txt').Select(s-gt;s.LexRepeat)
      .Where(x-gt;x[1]gt;0).Foreach(x-gt;Writeln('*** ',x[0],' - ',x[1]+1,' ***'))
end.

Пример работы программки

Александр Пушкин
К***
Я помню дивное мгновенье:
Передо мной появилась ты,
Как мимолетное виденье,
Как гений незапятанной красоты.
В томленьях грусти безнадежной,
В тревогах гулкой суеты,
Звучал мне долго глас ласковый
И снились милые черты.
Шли годы. Бурь порыв мятежный
Рассеял прежние мечты,
И я забыл твой глас ласковый,
Твои небесные черты.
В глуши, во сумраке заточенья
Тянулись тихо деньки мои
Без божества, без воодушевления,
*** Без - 2 ***
Без слез, без жизни, без любви.
*** Без - 3 ***
Душе настало пробужденье:
И вот опять появилась ты,
Как мимолетное виденье,
Как гений незапятанной красы.
И сердце бьется в упоенье,
И для него воскресли опять
И божество, и воодушевление,
*** И - 2 ***
И жизнь, и слезы, и любовь.
*** И - 3 ***

Во вложении - исходный файл Puskin2.txt