Question

Программа ПРОВЕРЬТЕ!!
введите ряд чисел,но как только пользователь вводит -1
программа должна сосчитать кол-во четных и нечетных
проверьте почему не работает
Program minodin;
uses crt ;
var a,i,b: integer;
begin
Writeln('введи число');
readln(a);
begin
i:=0;
While (a<-1) and (a>-1) do
Writeln('введи число');
readln(a)
end;
begin
If a mod 2=0 then
i:=i+1
else
b:=b+1;
end;
Writeln(b,' нечетных чисел');
Writeln(i,' четных чисел');
readln;
end.