заменить элементы одномерного массива, стоящие перед минимальным - на нули, а стоящие после максимального - на единицы (Паскаль)

[Женька Good]

Мне нужно заменить элементы одномерного массива, стоящие перед минимальным элементом на нули, а стоя щие после максимального - на единицы.
Программу пытался писать, смог найти максимальный и минимальный элемент, а вот как заменять элементы не разобрался
помогите плз

Вот то, что я сделал:

Program Xme1ez_mas;
Uses CRT;
type mymasyv=array[1..9] of real;
     Const y:mymasyv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
Var v:mymasyv;
    k,j:integer;
    min,max:real;
Begin;
CLRSCR;
min:=v[1];
Max:=v[1];
   For j:=1 to 9 do
     begin
     v[j]:=cos(3*y[j]);
     Write(v[j]:5:1);
     end;
     Writeln;
   For j:=1 to 9 do
     begin
     If min>v[j] then
     min:=v[j];
     end;
   For  j:=1 to 9 do
     begin
       If max<v[j] then
       max:=v[j];
     end;
readln;
end.

_________
Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.

Но в будущем неукоснительно соблюдайте это правило!

Модератор.

[Arigato]

1. Это:

min:=v[1];
Max:=v[1];

Надо вынести ниже цикла, формирующего массив. Надеюсь, понимаете, зачем?

2. Циклы поиска минимума и максимума можно начинать с 2, а не с 1. Для минимума и максимума достаточно одного общего цикла.

3. Кроме самих значений max и min надо сохранять еще и индексы элементов, например, в переменные i_max, i_min.

4. Ну а нулями и единицами заполняем в цикле. Индексы у нас есть, так что проблем тут возникнуть не может.

[Zer0]

Arigato, я конечно понимаю что здесь массив задан определенными значениями, но ведь при проверке значения могут поменять, и в массиве окажется например два числа равных максимальному, так что проще при втором и третьем выводе массива сразу проверять эти элементы, чем сохранять в память индексы