Как то так наверно: 
const n = 10;
var
arr: array[1..n] of integer;
max_num,min_num: integer;
i, max_index,min_index: byte;
begin
i := 1;
repeat //цикл с постусловием
write ('Число: ');
readln(arr[i ]);
i := i + 1
until (arr[i-1] = 0) or (i > n);
max_index := 2; //поиск максимального элемента в четных позициях таблицы
max_num := arr[2];
i := 2;
while i <= n do begin
if arr[i ] > max_num then begin
max_index := i;
max_num := arr[i ];
i := i + 2
end;
min_index := 1; //поиск минимального элемента в нечетных позициях таблицы
min_num := arr[1];
i := 1;
while i <= n do begin
if arr[i ] < min_num then begin
min_index := i;
min_num := arr[i ];
i := i + 2
end;
writeln ('Max = ',max_num); //вывод на экран максимального четного элемента
writeln ('position: ', max_index);
writeln ('Min = ',min_num); //вывод на экран минимального нечетного элемента
writeln ('position: ', min_index);
readln
end.
