Точно не понял, какую сумму, но если тебе нужно найти самый большой элемент массива или самый маленький, то программа будет выглядеть примерно так:
Program abc;
var i:integer;
k:real;
b:array [1..10] of real;
begin
for i:=1 to 10 do read(b[i]);
for i:=1 to 10 do if b[i] > k then k:=b[i];
writeln('max: ', k);
k:=b[1];
for i:=1 to 10 do if b[i] < k then k:=b[i];
writeln('min: ', k);
end.