[luceu]

Вот такое задание:
"Разработайте программу, определяющую наименьшее значение из внешнего файла, распечатайте это значение."

Почему то, как не делаю, всегда выводит "0"!
может кто уже делал такое или увидит мою ошибку буду очень признателен.

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var f:textfile;
    a:array [1..100000] of double;
    d:integer;
    n,i:integer;
    min:double;
   begin
    If OpenDialog1.Execute           //открыть диалог для поиска файла
         then begin
assignfile (f,'text1.txt');
 reset(f);
    readln(f,n);
    readln(f,min);
    a[1]:=min;
    for i:=2 to n do
      begin
        readln(f,a[i]);
        if a[i]<min then begin min:=a[i]; end;
         end;
         label3.Caption:=floattostr(min);
      closefile(f);
    end
else SHowMessage('ошбка сохранения!');
 exit;
end;