Найти минимальное число массива

program pr1;
uses crt;
const M=10;
 
type mas=array[1..M] of integer;
 
var massiv:mas;
    i,imin,N:integer;
    min:integer;
 
    procedure Print(var mass:mas; n:integer);
    var i:integer;
       begin
       randomize;
           for i:=1 to n do mass[i]:=random(10);
       end;
        procedure Insert(mass:mas; n:integer);
    var i:integer;
       begin
       writeln;
       writeln;
           for i:=1 to n do write(mass[i]:5);
       end;
begin
clrscr;
Randomize;
     Print(massiv, m);
     Insert(massiv, m);
     writeln;
     writeln;
       min:=massiv[1];
       imin:=1;
       N:=random(10);
          for  i:=2 to N do
          if massiv[i] < min then begin
          min:=massiv[i]; imin:= i;     end;
          writeln('posiciya: ',imin);
          writeln('min chislo - ',min);
 
readln;
end.

program pr1;
 
uses 
  crt;
 
сonst 
  M=10;
 
type 
  mas = array[1..M] of integer;
 
var 
  massiv: mas;
  i,imin,N: integer;
  min: integer;
 
 procedure Print(var mass: mas; n: integer);
 var 
   i: integer;
 begin
   randomize;
   for i:=1 to n do 
     mass[i] := random(10);
 end;
 
 procedure Insert(mass:mas; n:integer);
 var 
   i:integer;
 begin
   writeln;
   writeln;
   for i:=1 to n do 
     write(mass[i]:5);
 end;
 
 begin
   clrscr;
   Randomize;                            строчку УДАЛИТЬ!!!
   Print(massiv, m);                    И процедуры названы не в соответствии с тем, что делают.
   Insert(massiv, m);                  перепутал, наверное? :)
   writeln;
   writeln;
   min := massiv[1];
   imin := 1;
   N := random(10);             <= вот тут ЗАЧЕМ? строчку удалить!!!
   for i:=2 to N do                <= естественно... у тебя проверяется не до 10, а до случайного числа
                                        надо так: for i:=2 to M do
     if massiv[i] < min then 
     begin
       min := massiv[i]; 
       imin :=  i; 
     end;
   writeln('posiciya: ',imin);
   writeln('min chislo - ',min);
   readln;
 end.