Доработка

[RUSSTUDENT]

Всем привет! Вот программу решил. Доработать надо. Сам никак не понял.
Задание:"Вычислить количество точек с целочисленными координатами, попадающих в круг с радиусом R с центром в точке (0;0). Вывести на экран координаты этих точек".

В 1-ом случае вводишь радиус, печатает вместо Х и У только вводимое число(не все координаты) и количество точек(здесь правильно),
а во 2-ом случае печатает все координаты.
Как надо правильно использовать переменную koltoch?

1).

Program FOR1;
  var x,y,R: integer;
      koltoch: byte;
begin
  writeln('Введите радиус R');
  readln(R);
  koltoch:= 0;
  for x:= -R to R do
  for y:= -R to R do
    if sqrt(sqr(x) + sqr(y)) <= R then
      koltoch:= koltoch + 1;
      writeln (x,' ',y);
      writeln(koltoch);
      readln
end.

2).

Program FOR1;
  var x,y,R: integer;
      koltoch: byte;
begin
  writeln('Введите радиус R');
  readln(R);
  for x:= -R to R do
  for y:= -R to R do
    if sqrt(sqr(x) + sqr(y)) <= R then
      writeln (x,' ',y);
      readln
end.

[RomiKon]

1).

Program FOR1;

var 
  x,y,R: integer;
  koltoch: byte;

begin
  writeln('Введите радиус R');
  readln(R);
  koltoch:= 0;
  for x:= -R to R do
    for y:= -R to R do
      if sqrt(sqr(x) + sqr(y)) <= R then
      begin
        koltoch:= koltoch + 1;
        writeln (x,' ',y);
     end;
  writeln(koltoch);
  readln
end.

[RUSSTUDENT]

Все отлично. Спасибо за помощь!
До этого никак не додумался.