[X] Мій Помічник

Потрібно розв'язати ось таку задачу на Delphi:

Згідно державної програми розвитку сільського господарства в кожному із N фермерських господарствах області заплановано вирощування певної кількості фруктів. Крім цього, виділено кошти для побудови в одному із цих господарств заводу по переробці вирощених фруктів.
Зрозуміло, що до основних затрат, які визначають собівартість готової продукції належать і затрати на транспортування (доставку) фруктів до переробного заводу. А тому, потрібно вибрати для розміщення цього заводу одне із господарств, для якого ці затрати будуть мінімальними. Відомо скільки фруктів планує вирощувати кожне із господарств області (в тонах), також відомо між якими із господарств прокладено дорогу і її довжина. Будемо вважати, що затрати по перевезенню однієї тони фруктів на один кілометр по кожній із доріг є сталою і рівна K.
Формат вхідних даних:
Перший рядок вхідного файлу містить три числа: N - кількість фермерських господарств (1 < N <10000) , K. (1 < K <100), і M -кількість доріг.
Наступна стрічка файлу містить N дійсних чисел, які задають заплановану кількість вирощених фруктів відповідним господарством.
Наступні M рядки описують дороги трійками цілих чисел P,Q,R , де P і Q – номери господарств, які з'єднані дорогою, а R - довжина цієї дороги.
Формат вихідних даних:
У вихідний файл виведіть номер шуканого господарства.

І в чому проблема?

Створюємо списки, щоб замінити input і output файли, куди вводимо і виводимо інформацію
Прописуємо алгоритм Дейкстри
Повторюємо для кожної вершини
Визначаємо і виводимо найменший результат
Хочу код