помогите составить программу в паскале
в пионерском лагере N отрядов с различным числом детей/. какой отряд самый малочисленный?

program first;var n,i,min:integer;a:array [1..100] of integer;beginread(n);for i:=1 to n doread(a[i]);for i:=1 to n do if min>a[i] then min:=a[i];write(min);end.