Странные результаты проверки на чётность.

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 10;
var
  Vector : array[1..N] of Integer;
  i, IntMin : Integer;
  IsFound : Boolean;
  StrTmp : String;
begin
  //Очистка Мемо.
  Memo1.Clear;
 
  //Заполняем массив случайными целыми числами.
  Randomize;
  for i := 1 to N do begin
    Vector[i] := Random(11); //0..10.
  end;
 
  //Распечатка исходного массива.
  Memo1.Lines.Add('Исходный массив:');
  StrTmp := '';
  for i := 1 to N do begin
    if StrTmp <> '' then StrTmp := StrTmp + Char(9);
    StrTmp := StrTmp + IntToStr( Vector[i] );
  end;
  Memo1.Lines.Add(StrTmp);
 
  //Ищем значение наименьшего нечётного элемента.
  IsFound := False;
  for i := 1 to N do begin
    if Vector[i] mod 2 <> 0 then begin
      if not IsFound then begin
        IntMin := Vector[i];
        IsFound := True;
        Continue;
      end;
      if Vector[i] < IntMin then begin
        IntMin := Vector[i];
      end;
    end;
  end;
 
  //Есть смысл производить вычитание только если был найден хотябы один нечётный элемент.
  if IsFound then begin
    for i := 1 to N do begin
      Vector[i] := Vector[i] - IntMin;
    end;
  end;
 
  //Распечатка результирующего массива.
  Memo1.Lines.Add('Результирующий массив:');
  StrTmp := '';
  for i := 1 to N do begin
    if StrTmp <> '' then StrTmp := StrTmp + Char(9);
    StrTmp := StrTmp + IntToStr( Vector[i] );
  end;
  Memo1.Lines.Add(StrTmp);
 
end;

...
  //Первоначально в качестве первого минимального нечётного элемента выбран, собственно,
  //не один из нечётных элементов, а первый элемент массива. А первый элемент массива
  //может оказаться чётным. - Это в дальнейшем приводит к неправильному счёту.
  //Более того - в массиве вообще могут отсутствовать нечётные элементы. :)
  z:=a[1];
  For i:=1 to memo1.Lines.Count do
  if (a[i]<z) and (odd(a[i])=True) then z:=a[i];
...

procedure TForm1.Button1Click(Sender: TObject);
Var
z:integer;
i,n:integer;
q:string;
a:array[1..100] of integer;
p,b:boolean;
begin
Form1.ListBox1.Clear;
b:=True;
for i:=1 to memo1.Lines.Count do
if Memo1.Lines[i-1]='-' then b:=False  else
   a[i]:=strtoint(Memo1.Lines[i-1]);
   z:=a[1];
   p:=False;
   For i:=1 to memo1.Lines.Count do begin
   if (odd(a[i])=True) then begin
   if not p then begin
   z:=a[i];
   p:=true;
   continue;
   end;
   if (a[i]<z) then begin z:=a[i];
    end;
   end;
  end;
  if p and b then begin
for i:=1 to memo1.Lines.Count do
   a[i]:=a[i]-z;
    Listbox1.Items.add('Измененный вектор');
    for i:=1 to memo1.Lines.Count do
    Listbox1.Items.add(inttostr(a[i]));
   Listbox1.Items.add('Наименьший не чётный элемент вектора= '+inttostr(z));
    end else showmessage('Нет не чётных элементов или не введен вектор:(');
end;