i:=1; { Подготавливаем счетчик различных элементов}
for j:=2 to n do begin { Цикл по всем элементам, кроме первого }
if a[j]>a[i] then begin { Если следующий элемент не равен предыдущему, ..}
i:=i+1; { .. то увеличиваем счетчик различных элементов и ..}
a[i]:=a[j] { .. перекладываем элемент со старого места j на новое i }
end
end; { Закрываем тело цикла }