is not a valid floating point value

[nexzis]

эм столкнулся с новой проблемой
программа должна вводить массив(a,b,c) разными способами ( с этим справился),потом я должен выбрать массив(a,b,c)...этот массив должен копироваться в другой массив (d) и этот массив (d) надо отсортировать тут и возникает проблема в виде ошибки "is not a valid floating point value"


код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, AxCtrls, OleCtrls, VCF1, ExtCtrls;

type
TForm1 = class(TForm)
Button2: TButton;
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
Button4: TButton;
F1Book1: TF1Book;
Button5: TButton;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Label1: TLabel;
Label2: TLabel;
Button6: TButton;
Button7: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure F1SelChange(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; a:array[1..5] of real; f: textfile;
b:array[1..5] of real; c:array of array of real;
an, am: integer; //ðàçìåðû ìàññèâà
r1,c1,r2,c2:integer; //ìàðêèðîâêè ñòðîê è ñòîëáöîâ
implementation

{$R *.DFM}
function extract(var st:String):String;
begin result:='';
while (length(st) >0)and ((st[1] >='0') and (st[1] <='9')) do
begin
result:=result+st[1];
delete(st,1,1);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var s,st:string; i:integer;
begin
st:= Edit1.text;
for i:= 1 to 5 do
begin
s:='';
if (length(st)>0) then
begin s:=s+st[1]; delete(st,1,1);
s:=s+extract(st);
end;
if s='' then s:='0';
a[i]:=strtofloat(s);
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var i:integer; s:string;
begin
s:='';
for i:=1 to 5 do
s:=s+floattostr(a[i])+#9;
memo1.text:=s;
end;



procedure TForm1.Button4Click(Sender: TObject);
var i: integer; s: string;
begin
assignfile(f,'äîê.txt');
reset(f);
for i:=1 to 5 do
begin
read(f,b[i]);
s:=s + floattostr(b[i]) + #9;
end;
memo1.text:=s;
closefile(f);
end;


procedure TForm1.F1SelChange(Sender: TObject);
//var i,j:integer; s:string;
// ïðè ìàðêèðîâêå èç F1Book ÷èñëà ñ÷èòûâàþòñÿ â ìàññèâ
begin
f1book1.GetSelection(0,r1,c1,r2,c2) ;

end;



procedure TForm1.Button5Click(Sender: TObject);
var i,j:integer; s:string ;
begin
s:='';
an:=r2-r1+1; am:=c2-c1+1;
if (an=1) and (am=1) then begin
ShowMessage('Âûäåëåíà âñåãî îäíà êëåòêà'+#13+'ïîâòîðèòå ìàðêèðîâêó è ÎÊ '+#13);
exit;
end ;
setlength(c,an,am);

for i:=0 to an-1 do begin
for j:=0 to am-1 do begin
c[i,j]:=F1book1.NumberRC[r1+i,c1+j];
s:=s+floattostr(c[i,j])+#9;
end;
s:=s+#13;
end;
memo1.Lines.Add(inttostr(5));
memo1.Lines.Text:=s;

end;


procedure TForm1.Button6Click(Sender: TObject);
var i,j:integer; s:string;
begin
if RadioButton1.Checked =true then begin
for i:=1 to 5 do
s :=s+floattostr(a[i])+#9;
label1.Caption:= s;
end;
if RadioButton2.Checked =true then begin
for i:=1 to 5 do
s:=s+floattostr(b[i])+#9;
label1.Caption:= s;
end;
if RadioButton3.Checked =true then begin
for i:=0 to an-1 do
for j:=0 to am-1 do
s:=s+floattostr(c[i,j])+#9;
label1.Caption:= s;
end;
end;


procedure TForm1.Button7Click(Sender: TObject);
const SIZE=5;
var k:integer; i:integer;
changed:boolean; { TRUE, åñëè â òåêóùåì öèêëå áûëè îáìåíû }
buf:real; { áóôåð äëÿ îáìåíà ýëåìåíòîâ ìàññèâà }
st,s:string;
d:array[1..size] of real;
begin
s:=label1.Caption ;
for i:=1 to size do
begin
d[i]:=strtofloat(s) ;
end;
repeat
changed:=FALSE;
for k:=1 to SIZE-1 do
begin
if d[k] > d[k+1]
then begin
{ îáìåíÿåì k-ûé è k+1-ûé ýëåìåíòû}
buf:=d[k];
d[k]:=d[k+1];
d[k+1]:=buf;
changed:=TRUE;
end;
end;
{ âûâîä ìàññèâà }
for i:=1 to SIZE do
Label2.caption:=label2.caption+#9+f loatTostr(d[i]);
Label2.caption:=label2.caption+#13+ #13;
until not changed;
Label2.caption:=label2.caption+'Ìàñ ñèâ îòñîðòèðîâàí.';
end;


end.



проблема может быть в том что массив не выделяется в d или даже не знаю... помогите плз

[nexzis]

вот архив с программой

[nexzis]

с сортировкой немного понятнее стало но теперь вопрос конкретный
у меня если конкретно задавать массив d:=другому массиву то сортирока нормально проходит , но как мне сделать что бы я выбирал что присвоить d(какой из 3 массивов)
сделал через радиобаттон но что-то не работает и как сделать сортироку для 1 строки динамического массива если задаю через ф1бук?

[SkyM@n]

Оформляйем код!