[flips]

А мне можно получить от вас указания, что нужно изменить?
Вот повторю свой код

Код:

procedure DelEvenElement(var a:TArray100;cnt:integer);
 var i,j:integer;
begin
 for i:=1 to cnt do
   if (a[i]mod 2)=0 then
    begin
     for j:=i to cnt do
      a[j]:=a[j+1];
    end;
end;

Задание таково:
Нужно удалить все четные элементы массива.
Желательно пояснить где была проблема и почему.