Для этого нужно создать массив элементов и затем найти в нем максимальное и минимальное значения их сумму. Вот пример кода на Delphi 7:

program MaxMinSum;
var
arr: array [1..5] of Integer = (2, 5, 8, 4, 1);
i, max, min, sum: Integer;
begin
max := arr[1];
min := arr[1];
for i := 2 to 5 do
begin
if arr[i] > max then
max := arr[i];
if arr[i] < min then
min := arr[i];
end;
sum := max + min;
writeln('Максимальное значение: ', max);
writeln('Минимальное значение: ', min);
writeln('Сумма максимального и минимального элементов: ', sum);
end.

В данном примере массив arr содержит 5 элементов. Мы инициализируем переменные max и min первым элементом массива, а затем проходим по всем остальным элементам и находим максимальное и минимальное значения. После этого находим их сумму и выводим на экран.