[flips]

Вот код процедуры удаления повторяющихся элементов, что нужно изменить?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure DelEvenElement(var a:TArray100;var cnt:integer);  var i,j:integer; begin {i:=1;  while i<=cnt do   begin}   for i:=cnt downto 1 do    if a[i]=a[i+1] then     begin      for j:=i to cnt do       a[j]:=a[j+1];       cnt:=cnt-1;     {end    else     i:=i+1;}     end; end;