дан массив от 1 до 10 посчитать сумму max и min

Точно не понял, какую сумму, но если для тебя нужно отыскать самый большой элемент массива либо самый маленький, то программа будет выглядеть приблизительно так:

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] gt; k then k:=b[i];
writeln('max: ', k);
k:=b[1];
for i:=1 to 10 do if b[i] lt; k then k:=b[i];
writeln('min: ', k);
end.