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;