В массиве из 10 целых чисел подсчитать сумму элементов стоящих левее максимального

var a: array[1 ... 100] of integer;

n, i, imax, sum: integer;

begin

writeln ('Введите длину массива');

readln (n);

writeln ('Заполните массив с клавиатуры');

for i : = 1 to n do readln (a[i]);

imax : = 1;

for i : = 2 to n do if a[i] > a[imax] then imax : = i;

for i : = 1 to imax do sum : = sum + a[i];

writeln ('Сумма элементов, стоящих левее максимального, равна ', sum);

end.