[aypinki]

помогите пожалуйста! подсчитать кол-во разных чисел в A[i];
не работает (

Код:

kol:=0;
  for i:=1 to Lenght(A) do
   flag:=true;
   for j:=1 to Lenght(A) do
   if (A[j]=A[i]) and (j<>i) then
   flag:=false;
   if flag then
   kol:=kol+1;