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

var  n,k,x,y,s,i,j: integer;  a:array[1..10] of integer;beginwriteln('Число кеглей 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.