Помогите найти ошибку в коде(синтаксическую)((

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