Помогите! Почему не работает программаconst nn=10000;vara: array[1..nn] of

Помогите! Почему не работает программка
const nn=10000;
var
a: array[1..nn] of integer;
i,n,min,b: integer;
begin
readln(n);
b:=0;
for i:=1 to n do read(a[i]);
a[1]:= min;
for i:=1 to n do
if a[i]lt; min then begin
a[i]:= min;
b:=b+1;
end;
writeln(b);
for i:= 1 to n do
write(a[i],' ');
end.
Дан массив целых чисел А. Найдите количество вхождений малого элемента.