[lionbeast]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    a:array [1..100000] of double;
    d,k:integer;
    n,i:integer;
    min,max:double;
    adress:string;
begin
    adress:='e:\programms\1234.txt';
    assignfile(f,adress);
    reset(f);
    readln(f,n);
    readln(f,min);
    max:=min;
    a[1]:=min;
    for i:=2 to n do
      begin
        readln(f,a[i]);
        if a[i]<min then begin k:=i; min:=a[i]; end;
        if a[i]>max then begin d:=i; max:=a[i]; end;
      end;
    label1.Caption:=floattostr(min);
    label2.Caption:=floattostr(max);
    a[k]:=max;
    a[d]:=min;
    closefile(f);
end;

Admin: Пользуемся тегами!