Паскаль.нахождение MIN и MAX

[Яська]

7. Задать вводом с клавиатуры массив А(10), найти наименьший элемент массива и количество элементов, удовлетворяющих условию
Ai>min

[Chudo4258]

//ввод масива
readln(n);
for i:=1 to n do
 readln(A[i]);

//поиск min
min:=A[1];
for i:=2 to n do
 if A[i]<min then min:=A[i];

//количество элементов, удовлетворяющих условию Ai>min
k:=0;
for i:=1 to n do
 if A[i]>min then inc(k);