найти минимальный элемент в файле целых чисел

[viknik]

найти минимальный элемент в файле целых чисел и вывести его на экран (количество элементов и сам элемент вводить с клавиатуры)

[Zer0]

uses crt;

var kol,min:integer;
begin
writeln ('Введите количество чисел: ');
readln(kol);
writeln ('ВВедите минимальный элемент: ');
readln(min);
writeln ('Читаю файл...');
delay(500);
writeln ('Минимальный элемент в файле = ',min);
readkey;
end.

найти минимальный элемент в файле целых чисел и вывести его на экран (количество элементов и сам элемент вводить с клавиатуры)

как и просили :-D