Задано N точек на плоскости. Составить программу для подсчета количества точек, попавших в заданную область

const n = 10;
var
  a : array[1..n, 1..2] of real;
  z : array[1..n] of boolean;
  i, j, k : byte;
begin
  k := 0;
  for i := 1 to n do
    z[i] := false;
  {формируем массив точек}
  for i := 1 to n do
  begin
    writeln('введите ', i, ' точку:');
    readln(a[i, 1], a[i, 2])
  end;
  for j := 1 to 2 do
  begin
    for i := 1 to n do
      write(a[i, j]:4);
    writeln
  end;
  writeln;
  {проверка точек}
  for i := 1 to n do
    begin
      if (sqrt(sqr(a[i, 1]) + sqr(a[i, 2])) >= 2) and
        (a[i,1] >= -3) and (a[i,1] <= 3) and
        (a[i,2] >= -3) and (a[i,2] <= 3) then
        begin
          z[i] := true;
          inc(k)
        end
    end;
  {вывод}
  writeln('Количество точек попадающих в область: ', k);
  writeln('Номера точек:');
  for i := 1 to n do
    if z[i] = true then write(i:4);
  readln
end.