Уважаемые форумчане! Было бы великодушно, если бы вы помогли с составлением программы. "Прочитать файл и определить, сколько раз в нем встречается буква "А" ". Заранее спасибо..

С твоей же стороны было бы разумно хоть немного вникнуть.. Надеюсь, ты не понимаешь слово "помочь" как "сделать за тебя"
Вот такая конструкция делает, что тебе нужно:

n:=0;
while not EoF(f) do begin
  Read(f,c);
  if c='A' then Inc(n)
end;

Разберись с ней и допиши до полной программы.
А в нашей великодушности можешь не сомневаться..

Пасиба, пасиба, Гость!.. А вот если бы кто-нибудь разжевал мне в полном виде, был бы очень благодарен.

в каком месте не понятно??

Адель, понимаешь, я с Паскалем обращаюсь на Вы. Мне просто задали написать на эту тему курсовую работу. А я в нем полный топор.

Гораздо проще и нам и тебе, если ты задашь конкретный вопрос и мы тебе ответим, потом из ответов составишь полную картину, главное не бойся задавать даже примитивные вопросы, если что - то не ясно.