Можете опесать детальдно формулу, а именно что это за массивы P1, P2 и откуда они берутся? Желательно навести пример пару расчётов.
Во всяком случае я создал проект в Delphi7 которые поможет решить вашу задачу (
скачать). В место i*j вам необходимо вставить вашу формулу.