Массив

[SkuLLL]

Помогите плиз написать прогу на паскале
Дан одномерный массив E[10], элементы которого вводятся с клавиатуры, подсчитать сумму максимального и минимального элемента в массиве E. На экран вывести сам массив и сумму

[filvika]

const
    size = 10;
var
    E: array[1..size] of integer;
    i,
    min, max: integer;
begin
    //  Ввод значений
    writeln('Введи элементы массива через пробел');
        for i := 1 to size do read(E[i]);
    //  Вывод массива на экран
    writeln;
        for i := 1 to size do write(E[i], ' ');
    //  Поиск минимального и максимального значения
    min := E[1];
    max := E[1];
        for i := 1 to size do
            if E[i] < min then min := E[i]
            else if E[i] > max then max := E[i];
    writeln;
    writeln('Сумма минимального и максимального элементов равна ',min,' + ',max,' = ',min+max);
    readln;
end.

[psycho-coder]

туплю______