контрольная 4 и 5 задние последние

Var i,max,min,imax,imin,sum,kol:longint;
a:array [1..1000] of longint;
begin
i:=1;
readln(a[i]);
max:=0;
min:=maxint;
sum:=0;
kol:=0;
while a[i]<>0 do begin
 if a[i] mod 2=0 then
  begin  kol:=kol+1; sum:=sum+a[i]; end;
 if a[i]>max then
  begin max:=a[i]; imax:=i; end;
 if a[i]<min then
  begin min:=a[i]; imin:=i; end;
i:=i+1; 
readln(a[i]);
end;
writeln('Количество чисел:',kol,',сумма чисел:',sum);
writeln('максимальное из чисел: ',max,',номер максимального числа:',imax);
writeln('минимальное из чисел: ',min,',номер минимального числа:',imin);
end.

Пример:
15
27
94
60
51
0
Количество чисел:2,сумма чисел:154
максимальное из чисел: 94,номер максимального числа:3
минимальное из чисел: 15,номер минимального числа:1

Переводим X и Y в двоичную систему - это все же два числа, а не четыре, как если бы из двоичной переводить Z. Цифры шестнадцатиричного X расписываем по двоичным тетрадам, а восьмеричного Y - по триадам.
X = B7₁₆ = 1011 0111₂ = 10110111
Y = 271₈ = 010 111 001₂ = 10111001
Требуется найти Z, которое находится между X и Y.
Запишем в столбик, выравняв по младшему разряду, сначала X, потом варианты Z и в конце Y. То, что не будет попадать в интервал между числами в первой и последней строках, потом вычеркнем.
10110111
10111001 - равно нижнему, вычеркнем
10011000 - меньше верхнего, вычеркнем
10111000 - подходит - это ответ
10110111 - равно верхнему, вычеркнем
10111001

ответ: 3) 10111000₂