Найти минимальный элемент массива и его номер

program pr;
uses crt;
var
 mas: array[1..10] of integer;
 i,min,ind: integer;
Begin
randomize;
For i:=1 to 10 do
Begin
mas[i]:=Random(40)+20 ;
write(mas[i], ' ');
End;
writeln();
writeln();
min:=mas[1];
For i:=1 to 10 do
Begin
 If (min>mas[i]) then
 Begin
 min:=mas[i];
 ind:=i;
 End;
End;
write('Минимальный элемент массива: ',min, ' ,находится на ', ind, ' месте');
End.

program massiv;
uses crt;
const m=10;
type vector=array[1..m] of integer;
var a:vector;
    i,imin,min,p:integer;
Begin
clrscr;
    randomize;
    writeln('Ñîçäàíèå ìàññèâà è åãî âûâîä');
      for i:=1 to m do
         begin
           p:=random(2);
           a[i]:=p;
           write(a[i]:4);
         end;
      min:=a[1];
      i:=1;
      for i:=1 to m do
          if min>a[i] then
          begin
          min:=a[i];
          imin:=i;
          writeln;
          {writeln('ìèíèìàëüíûé ýëåìåíò ìàññèâà=',min); }
          writeln('èíäåêñ=',i);
          end;
      writeln;
      writeln('ìèíèìàëüíûé ýëåìåíò ìàññèâà=',min);
      writeln('åãî èíäåêñ=',imin);
      writeln('Äëÿ çàâåðøåíèÿ ðàáîòû íàæìèòå <Enter>');
readln
end.