Было-бы странно если не выдавал. У вас описание h:
Код:
h: array [1..5] of real = (1, 0.2, 0.1, 0.01, 0.001);
Вводить надо соответственно 5 переменных. Можно конечно и как одну, но тогда надо делать примерно так:
Код:
Var
hh: TStringList;
i: Integer;
begin
hh := TStringList.Create;
hh.Delimiter := ' ';
hh.DelimitedText := Edit1.Text;
for i := 0 to hh.Count - 1
do h[i] := StrToFloat(hh.Strings[i]);