дан призвольный массив состоящий из чисел а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.