В массиве из 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] gt; a[imax] then imax := i;

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

writeln(Сумма частей, стоящих левее наибольшего, одинакова , sum);

end.