Вот рабочий вариант, смотрите:
Код:
uses
SysUtils;
var
f:textfile;
a: array [1..100000] of double;
d: integer;
n,i: integer;
min: double;
s: String;
begin
assignfile(f,'d:\text1.txt');
reset(f);
readln(f, s);
n := StrToInt(s);
readln(f, s);
min := StrToFloat(s);
a[1] := min;
for i := 2 to n
do begin
readln(f, s);
a[i] := StrToFloat(s);
if a[i] < min
then min := a[i];
end;
WriteLn(FloatToStr(min));
ReadLn;
Closefile(f);
end.