Дан массив из n различных элементов. определить количество расположенных до минимального элемента массива

Var a: array[1.. 10000]of longint;       n,i,j,min: integer; begin   writeln('vvedite n');   readln(n);   writeln('vvedit chisla');   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =1 to n do       begin        if min> a[i] then begin  min: =a[i]; j: =i; end;     end;   write(i-1); end. если n будет больше то в описании увеличь размер массива там где подчеркнуто

Const n = 10; var   a            : array[1..n,1..n] of integer;   b            : array[1..n] of integer;   i,j,max : integer; begin   randomize;   writeln('массив a: ');   for i: =1 to n do   begin       max: =1;       for j: =1 to n do       begin           a[j,i]: =random(90)+10;           if a[j,i]> a[max,i] then max: =j;       end;       b[i]: =a[max,i];   end;   for i: =1 to n do   begin       for j: =1 to n do write(a[i,j]: 3);       writeln;   end;   writeln(#13,'массив b: ');   for i: =1 to n do write(b[i]: 3);   writeln; end.

1) // здесь нужно объявить количество элементов или ввести с readln var  a: array [1..n] of integer; i: integer; min: integer; max: integer; minnum: integer; maxnum: integer; begin // здесь должен быть ввод значений массива в цикле // for i: =1 to n do a[i]=random(100); или через readln; min : = a[1]; minnum : = 1; max : = a[1]; maxnum : = 1; for var i: =2 to n do begin   if a[i]< min then       begin           min : = a[i];           minnum : = i;       end;   if a[i]> max then       begin           max : = a[i];           maxnum : = i;       end; end; a[maxnum]=min; a[minnum]=max; //здесь вывод нового массива end. 2) for i: =1 to n do if a[i]> 0 then   if a[i] mod 2 = 0 then      write(a[i], ' '); 3) var sum: integer; start: integer; for i: =1 to n doif a[i]=0 then    start=i+1;   ////нашли первый нулевой, начинаем дальше со следующегоfor i: =start to n dobeginif a[i]> 0 then    begin      sum=sum+a[i];       write(i, ' '); ///номер положительного элемента    end; writeln; write('сумма =',sum); end;