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

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.

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]  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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.