В массиве из 20 элементов числа образуют неубывающую

[Genius94]

В массиве из 20 элементов числа образуют неубывающую. Несколько элементов, идущих подряд, равны между собой. Найти количество таких элементов. Сколько различных чисел имеется в массиве?
помогите плиз.

[Serge_Bliznykov]

EqualCount := 0;
DeltaEqual := 2;
DiffCount := 1;
CurElement := Mas[1];
for i:=2 to 20 do
  if CurElement = Mas[i] then begin
         Inc( EqualCount,DeltaEqual );
         DeltaEqual := 1
  end
  else {число отличается}  begin
    Inc( DiffCount );
    CurElement := Mas[i];
    DeltaEqual := 2
  end;

  WriteLn('Различных чисел в последовательности: ', DiffCount,' одинаковых подряд: ', EqualCount,DeltaEqual)

p.s. для последовательности
1 2 2 3 7 7 7 7 7 9 должно выдать
Различных чисел в последовательности: 5 одинаковых подряд: 7