Строки

[Denis12]

Составить программу, которая читает построчно текст другой программы ( ввести с клавиатуры ) на языке Pascal, подсчитывает количество ключевых слов «begin» и «end» и выводит на экран соответствующее сообщение.

[Utkin]

Ну закидываешь в массив и циклом по элементом массива функцией pos отлавливаешь нужные слова.

[Denis12]

напиши текст программы

[Serge_Bliznykov]

Сообщение от Utkin

Ну закидываешь в массив и циклом по элементом массива функцией pos отлавливаешь нужные слова.

Utkin, это далеко не так просто! (если делать правильно, то, как минимум надо разбирать программу на лексемы (писать лексический анализатор)...

Как минимум, хотя бы надо разбирать строку на отдельные слова...

Вот, например, определите, сколько в данном фрагменте программы (РАБОЧЕЙ, заметьте, программы) встречается КЛЮЧЕВОЕ слово begin

begin
   { тут 
         begin 
      начался }
   MyStartBegin := IntToStr(iBegin)+'begin';

p.s. хотя, с таким подходом:

Сообщение от Denis12

напиши текст программы

может ему больше и не надо ничего...

[Utkin]

Все это просто, главное вопрос организации. Нужно продумать набор небольших функций и все дела .
Ну для начала, закинуть в массив.
Потом откинуть все пустые строки и строки начинающиеся с //
Затем откинуть в строках все что идет после // (вместе с самими //)
Преобразовать к верхнему (ну или нижнему) регистру
Считать посимвольно (раз pos не хотите), считая при этом одинарные кавычки и т.д.
Сами по себе функции-то не сложные и независимые друг от друга . А значит их легко писать и отлаживать. Просто их надо чуть больше чем все сваливать в одну кучу и без комментариев. Что-то вроде своего личного АПИ по решению конкретной проблемы.

И лексемы не нужны...

[Denis12]

спасиб за алгоритм!