Найти минимальное значение среди элементов массива

var a:array[1..100] of integer;
    i,min,n:integer;
begin
    randomize;
    writeln('vvedit kil elementiv masyva <=100');
    readln(n);
    writeln('vygliad masyvu');
    for i:=1 to n do
    begin
        a[i]:=random(50);
        write(a[i],' ');
    end;
    writeln;
    min:=a[1];
    for i:=1 to n do begin
        if i mod 2<>0 then
        begin
            if min>a[i] then
                min:=a[i];
        end;
    end;
    writeln('min=',min)
end.

var a,b:integer;
begin
  readln(a,b);
  if a>2 then
     write(a)
  else if b>2 then
           write(b)
        else
            write(a,'   ',b);
readln;
end.

Program pr1;
uses crt;
var a,b:integer;
begin
clrscr; //очистка экрана
  readln(a,b);  // вводим первое числоа(а) и второе (b)
  if a>b then    // если а>b  то
writeln('pervoe chislo',a);        // выводим а
  else if b>2 then // иначе если b>a
           writeln('pervoe chislo -',a,'vtoroe chislo -',b);  // выводим b и а
readln;
end.

var a,b,c:integer;
begin
write('vvedite tri chsla: ');
readln(a,b,c);
if (a>b) and (a>c) then 
   if b>c then 
      writeln('summa bolshego i menshego chisla =', a+c)
   else
      writeln('summa bolshego i menshego chisla =', a+c)
else if (b>a) and (b>c) then
    if a>c then
       writeln('summa bolshego i menshego chisla =', b+c)
    else
      writeln('summa bolshego i menshego chisla =', b+a);
if (c>a) and (c>b) then
    if a>b then
      writeln('summa bolshego i menshego chisla =', b+c)
    else
      writeln('summa bolshego i menshego chisla =', c+a);
readln;
end.