Советы программисту
Разбейте программу на модули, так будет легче работать потом.
Если вы подключаете целый модуль, используя из него всего 1 процедуру, лучше выдерните эту процедуру и вставьте ее в код.
Операции с элементами массива всегда выполняются медленнее, чем с обычными переменными.
Поэтому операция a*b будет выполнена гораздо быстрее, чем a[x]*z[y], при одинаковых значениях
Придавайте переменным осмысленные названия, например, Volume, count.
Также следите за размером переменных в байтах. Не надо использовать большие типы такие как Longint, Extended. В большинстве случаев можно обойтись типом byte и single, а в строках string указывайте кол-во символов string[x]; .