Помогите решить в Delphy,а то что-то я вообще не о чем

Ну, скорее всего не мягкости, а мякоти.
А исходя из того, что тут дано, можно определить только процентное содержание мякоти от всего объема арбуза:

{$apptype console}

var
d, w, dm: Real;
begin
write('диаметр? ');
readln(d);
write('толщина кожуры? ');
readln(w);
dm := d - w;
writeln('арбуз содержит ', 100 * dm*dm*dm / (d*d*d):0:2, '% мякоти');
end.

А каким боком сюда прикрутить одновымерный массив, никак не могу представить. Хотя догадываюсь, что одновымерный -- это на самом деле одномерный массив.