Дан призвольный массив состоящий из чисел а1=5 а2=3 а3=8 а4=2 а5=10 а6=7 а7=20 а8=1 нужно написать прграмму и найти минимальное из них

Program Example;
var
 m : array[1..8] of integer;
 maxV,i : integer;
begin
   for i := 1 to 8 do
     begin
       readln(m[i]); // Этим циклом мы заполняем массив
     end;
j := m[1];
   for i := 2 to 8 do
      begin
        if (m[i] > m[i-1]) do j := m[i];
      end;
writeln(j);
end.