Поиск минимального элемента в массиве

min:=1;
for i:=2 to n do
 if a[i]<a[min] then min:=i;
 
writeln('минимальный элемент ', a[min]);

min:=a[1];
for i:=2 to n do
 if a[i]<min then
  min:=a[i];

const n=10;
var a:array[1..n] of integer;
    min,i:integer;
begin
for i:=1 to n do
 begin
  a[i]:=random(20);
  Write(a[i],'  ');
 end;
min:=a[1];
for i:=2 to n do
 if a[i]<min then
  min:=a[i];
Writeln('Min ',min);
end.

var a :array [1..100] of integer;
min, nom, i,n:integer;
begin
  i:=0;
  min:=1000;
  nom:=0;
  n:=10;
  writeln('Массив до изменений');
  for i:=1 to n do
    begin
      a[i]:= random(1,5);
      writeln(a[i]);
    end;
    for i:=1 to n do
    begin
      if (a[i]<min) or (a[i]=min) then
        begin
          min := a[i];
          nom:=i;
        end;
    end;
     writeln('Массив после изменений');
     for i:=1 to n do
    begin
      if i=nom then
          a[i]:=0;
      writeln(a[i]);
    end;
end.

a[nom]:=0;

  min:=High(min);

    for i:=1 to n do 
    begin  { займемся фигней многократно }
      if (a[i]<min) or (a[i]=min) then { сравнение тоже стоит процессорного времени }
...
    for i:=1 to n do
    begin  { займемся фигней многократно }
      if i=nom then { сравнение тоже стоит процессорного времени }
        a[i]:=0;
      writeln(a[i]);
    end;

var n, m, t: Integer;
begin
  Read(n); m:=High(m);
  for n:=1 to n do begin
    Read(t); if m>t then m:=t;
  end;
  WriteLn('min = ',m);
end.

function vMin(const v: array of Integer; n: Integer): Integer;
var r: Integer;
begin
  r:=v[0]; for n:=1 to n-1 do if r>v[n] then r:=v[n]; vMin:=r;
end;

function vMin(const v: array of Integer; n: Integer): Integer;
begin
  Result:=v[0]; for n:=1 to n-1 do if Result>v[n] then Result:=v[n];
end;

function vMin(const v: array of Integer): Integer;
var e: Integer;
begin
  Result:=v[0]; for e in v do if Result>e then Result:=e;
end;

function vMin(const v: array of Integer): Integer;
var i: Integer;
begin
  Result:=v[Low(v)]; for i:=Low(v)+1 to High(v) do if Result>v[i] then Result:=v[i];
end;