[flips]

Разобрался я со считыванием данных из строки в кавычках для фун-и pos пробел не указал.
Новая проблема появилась. Задание звучит так:
Из массива удалить четные элементы, элементы то удаляет, но еще добавляет мусор. Где нужно внести поправки в код?

Код:

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