вычесление суммы Опции

[ladsl]

Помогите кто может... мне нужно вычислить сумму элементов массива, расположенных в конце массива, причем складывать нужно, начиная от конца массива,столько элементов, пока сумма не привысит значение 20.5(или не будут сложены все элементы) для меня это действительно темный лес... ах, да тип данных веществ.

[udaaff]

for i:= last downto first do begin
   sum:= sum + arr[i];
   if sum > 20.5 then break
end;

[ladsl]

Спасибо большое !