В одномерном целом массиве найти минимальное значение - Turbo Pascal

Формулировка задачи:

Здравствуйте.Вообщем задача такая: В одномерном целом массиве найти минимальное значение и номер первого минимального среди элементов больших B от элемента не равного 0. Программу я написал, вот только не знаю, как сделать ввод входного массива ИЗ ФАЙЛА(у меня ввод в программе). И, собственно ,хотелось бы, чтобы помогли сделать эту программу с вводом из файла.

Решение задачи: «В одномерном целом массиве найти минимальное значение»

Листинг программы

 assign(f,'111.txt');

Объяснение кода листинга программы

Строка assign(f,'111.txt') используется для назначения имени файла переменной f.
Строка readln(f) используется для чтения первой строки из файла, имя которого хранится в переменной f.
Строка readln(f) снова используется для чтения второй строки из файла.
Строка readln(f) снова используется для чтения третьей строки из файла.
Строка readln(f) используется для чтения четвертой строки из файла.
Строка readln(f) используется для чтения пятой строки из файла.
Строка readln(f) используется для чтения шестой строки из файла.
Строка readln(f) используется для чтения седьмой строки из файла.
Строка readln(f) используется для чтения восьмой строки из файла.
Строка readln(f) используется для чтения девятой строки из файла.
Строка readln(f) используется для чтения десятой строки из файла.
Строка readln(f) используется для чтения одиннадцатой строки из файла.
Строка readln(f) используется для чтения двенадцатой строки из файла.
Строка readln(f) используется для чтения тринадцатой строки из файла.
Строка readln(f) используется для чтения четырнадцатой строки из файла.
Строка readln(f) используется для чтения пятнадцатой строки из файла.
Строка readln(f) используется для чтения шестнадцатой строки из файла.
Строка readln(f) используется для чтения семнадцатой строки из файла.
Строка readln(f) используется для чтения восемнадцатой строки из файла.
Строка readln(f) используется для чтения девятнадцатой строки из файла.