В массиве из 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.