http://www.pascaler.ru/pascal/filetype/text/
Цитата
Считать файл в ОЗУ и посчитать кол-во символов циклом.

Не надо, просто читать по одному символу и смотреть не "p" ли это.