написать на паскале программу "одномерные массивы"

[Яська]

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

[ОДИНОЧЕСТВО В СЕТИ]

var
k,i:integer;
min:real;
a:array[1..10] of real;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=2 to 10 do
if a[i]<min then min:=a[i];
k:=0;
for i:=1 to 10 do
if a[i]>min then inc(k);
writeln('min=',min);
writeln('kol-vo=',k);
readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

var
k,i:integer;
min:real;
a:array[1..10] of real;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=2 to 10 do
if a[i]<min then min:=a[i];
k:=0;
for i:=1 to 10 do
if a[i]>min then inc(k);
writeln('min=',min);
writeln('kol-vo=',k);
readln;
end.