[lmikle]

Код:

var
  I : Integer;
  A : Array Of Integer;
begin
  I := Low(A);
  While I <= High(A) Do
    If (I mod 2) = 0 Then
      Memo1.Lines.Add('A['+IntToStr(I)+']='+IntToStr(A[i]);
end;