Bạn chưa khởi tạo giá trị ban đầu của i2 và i3. Bạn thêm vào: "i2:=1; i3:=1;" trước khi duyệt tìm Min, Max thì sẽ khắc phục được.
Lí do: Test của bạn đặc biệt, số 2 là số nhỏ nhất và ở vị trí thứ 1, bạn chỉ khởi gán Min:=A[1] chứ chưa gán giá trị i3:=1 -----> i3 được mặc định giá trị là 0, cho nên khi for i:=1 to n sẽ không gặp số nào nhỏ hơn 2 nên giá trị của i3 sẽ vẫn là 0 tới cuối chương trình.