pascal. дан массив.найти сумму тех элементов ,которые расположены до максимального элемента данной последовательности .результат сохранить в файл.

//Pascal ABC.NET 3.1 сборка 1219Const n=10;Var f:text; p,i:integer;beginp:=0;writeln('Array:');var ar:=ArrRandomInteger(n,-100,100);ar.Println;assign(f,'text.txt');rewrite(f);for i:=0 to ar.IndexMax-1 dop:=p+ar[i];write(f,p);close(f);end.