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

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