[maxmaslo]

вывод обязательно в listbox. ввод из memo. ошибка после нажатия на button.

Код:

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;
end;
m[j]:=min;
m[p]:=max;
str(m[i]:2:1,st);
listbox1.Items.Add(st);
end.