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

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,min:integer;
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    if i=1 then
      min:=a[i];
    if a[i]<min then
      min:=a[i];
    write(a[i]:2,' ')
  end;
  writeln(']');
  writeln('Ìèíèìóì ',min)
end.

program vad;
uses crt;
var
   a:array [1..100] of integer;
   i,min,n:integer;
begin
 clrscr;
 repeat
  write ('Vvedite kol-vo elementov massiva (ne bolee 100): ');
  readln (n);
 until (n>0) and (n<=100);
 for i:=1 to n do
  begin
   write ('Vvedite ',i,'-i element massiva: ');
   readln (a[i]);
  end;
 min:=a[1];
 for i:=1 to n do
  if a[i]<min then min:=a[i];
 writeln ('Minimalnii element massiva = ',min);
 readln;
end.