Программа

{ ВоенМех 
  Вывести слова из файла
  начинаюшиеся на "А" 
  и подсчитать их количество }
Program Sentence;
Const ConstFileName='SENT.TXT';                 { Предопределенное имя файла }
      FirstChar=['А','а'];                      { Первый символ }
      BreakChar=[' ',#10,#13];                  { Символы разделители }
Var FileOfSentence:text;                        { Файловая переменная }
    FileName:string;                            { Имя файла }
    WordsMeter:integer;                         { Счетчик слов }
    Ch:Char;                                    { Символ }
    PredCh:Char;                                { Поедыдущий символ }
BEGIN
  WriteLn;                                                  { Пропуск строки }
  { Ввод имени файла: }
  WriteLn('Введите имя внешнего файла [',ConstFileName,']');{ Вывод
 приглашения ввести имя файла с предложением и указание имени "по умолчанию" }
  ReadLn(FileName); { Чтение имени файла }
  If FileName='' then FileName:=ConstFileName;
                                       { Переопределение пустого имени файла }

  WordsMeter:=0;                       { Обнуление счетчика слов }
  Ch:=' ';                             { Определение текущего символа }
  Assign(FileOfSentence,FileName);
                             { Связывание файловой переменной с именем файла }
  Reset(FileOfSentence);     { Открытие файла для чтения }
  while not EOF(FileOfSentence) do { Цикл просмотра файла }
    Begin
      PredCh:=Ch;                    { Сохранение предыдущего символа }
      Read(FileOfSentence,Ch);       { Чтение символа }
      if (PredCh in BreakChar)and(Ch in FirstChar)
              { Если предыдущий символ - разделитель и текущий - "А" или "а" }
        then begin { то - печать слова }
               WordsMeter:=WordsMeter+1;
                                   { Подсчет слов начинающихся с "А" или "а" }
               while not (EOF(FileOfSentence) or (Ch in BreakChar))
                 do                    { Цикл печати имволов текущего слова }
                 begin
                   Write(Ch);                               { Печать символа }
                   Read(FileOfSentence,Ch)                  { Чтение символа }
                 end;
               WriteLn                                      { Пропуск строки }
             end
    End;
  Close(FileOfSentence);                            { Закрытие файла }
  WriteLn('Количество слов начинающихся с "А" - ',WordsMeter);
                                                     { Вывод количества слов }
END.