Здравствуйте!!! помогите пожалуйста с задачей на паскаль ( массивы)

var   n,k,x,y,s,i,j: integer;   a:array[1..10] of integer; begin writeln('Число кеглей n: '); readln(n); for i:=1 to n do a[i]:=1;//ставим кегли writeln('Число бросков k: '); readln(k); for i:=1 to k do   begin   writeln(i,' бросок. Введите x y: ');   readln(x,y);   for j:=x to y do a[j]:=0;//убираем сбитые   end; for i:=1 to n do if a[i]=1 then s:=s+1;//считаем оставшиеся writeln('Осталось кеглей: ',s) end.