[maxmaslo]

Код:

procedure TForm1.Button1Click(Sender: TObject);
const N=10;
var m:array [1..N] of real;
j,p,i,er:integer;
max,min:real;
st,sa:string;
begin
for i:=1 to N do
begin
sa:=memo1.lines[i-1];
val(sa,m[i],er);
end;
max:=m[1];
min:=m[1];
for i:=2 to N do
begin
if m[i]>max then
begin
max:=m[i];
j:=i;
end;
if m[i]<min then
begin
min:=m[i];
p:=i;
end;
end;
m[j]:=min;
m[p]:=max;

begin
listbox1.Items.Add(floattostr(m[i]));
end;
end;