Помогите, пожалуйста.
1) Написать программу определения элементов массива.
2)Написать программу поиска минимального значения массива.

n=100;          {Количество элементов массива}type Mas =array [1..n] of integer;var A :Mas;     Max, i:integer;beginfor i:=1 to n do   A[i]:=10+random(90);        {Заполняем массив двузначными числами }   Max:=A[1];   for i:=2 to n do      if A[i]>Max then Max:=A[i];   WriteLn('MaxEl=', Max) ;          {Напечатан максимальный элемент}ReadLn;end.