[luceu]

получилось вот так:
Если числа записаны в столбик и меньше нуля, то всё работает, а если все числа больше нуля, то выдаёт '0' !!!
В чём ошибка?

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    a:array [1..100000] of double;
    i:integer;
    min:double;
    adress:string;
begin
 If OpenDialog1.Execute           //открыть диалог для поиска файла
         then begin
   assignfile(f,OpenDialog1.FileName);
    reset(f);
    readln(f,min);
    a[1]:=min;
    for i:=2 to 1000 do
      begin
        readln(f,a[i]);
        if a[i]<min then begin min:=a[i];
        end;
          end;
           label1.Caption:='наименьшее число = '+floattostr(min);
   closefile(f);
end

else SHowMessage('Файл не выбран!');
 exit;
 end;

end.