Delphi -одномерные массивы

[Griiish]

помогите найти ошибку.программа компилируется, но выдает что
'' is not a valid floating point value.". Вот текст:
procedure TForm1.Button1Click(Sender: TObject);
Const
size = 10;
var
i:Byte; // индекс массива
s:real; // сумма положительных элементов
a: array [1..size] of real; // выделение памяти под массив

begin
for i:=1 to SIZE do
a[i]:=Strtofloat(Form1.Memo1.Lines[i-1]);
s:=0;
for i:=1 to SIZE do
if a[i]>0 then s:=s+a[i];
label1.Caption:=floattostr(s);
end;

end.
Задача- найти сумму всех положительных элементов массива, до первого 0.(10 цифр)

[VIK_aka_TOR]

в мемо числа у тебя через пробел или ентер введены?
десятичный разделитель какой используешь, запятую или точку?
и 10 ли чисел в мемо?
UPD
используйте тег кода для вставки кода... (кнопка #)

[Griiish]

у меня в мемо вообще ничего не введено...и числа только целые, не пойму вообще зачем там разделилеть

[VIK_aka_TOR]

Не введено а прочитать пытаешься... Зачем? + для чего тогда вещественный тип данных сделал в массиве?

[Griiish]

Спасибо, уже помощь не нужна))))я исправила s:=... и все пошло, работает)))))