анализ текстового файла, выбрать и преобразовать слова в числа Опции

[Denny61]

Доброе время суток! Задача: Сост программу обеспечивающую ввод текста вида "Мама на рынке купила три килограмма бананов по цене тридцать пять рублей за килограмм... " ну и т.д в файл, а затем анализируя текст вывести сумму всех покупок (т.е сколько денег мама потратила) так вот преобразовать слова в цифры понятно как, а вот как сделать так что бы пр-ма складывала в два массива рубли к рублям а килограммы к килограммам не понятно, сделал это на Си препод не принял... только на Паскале (((

[Denny61]

Да мне в принципе и не нужна программа целиком, просто я не знаю как средствами Паскаль можно сделать так
что-бы программа встретив ключевое слово проверила предыдущие слова и если это цифры (а я их заранее ввел в массивы ) то в зависимости от ключевого слова записала его в тот или иной массив. Да в принципе хотя бы не со словами а с цифрами (не один, два... а 1, 2 и т.д) а доделать я думаю что смогу.

Добавлено через 19 мин.
Т.е например в FoxPro насколько я помню можно писать так:
...
find :'Какой-то текст' if found do ... и далее можно привинтить условие для отбора данных, а вот как это в Паскаль не понятно.
И еще одна задача, я ее сделал все вроде правильно но при запуске она просто вылетает. В чем дело не пойму... (файлик прикрепил)