Delphi

[Nikita++]

Мишень представляет собой 10 колец, образованных окружностями с радиусами r, r*2, ..., r*10 и с центром в начале координат. Попадание в наименьшее кольцо 10 очков, во второе 9 очков, ..., в наибольшее 1 очко. Производится N выстрелов. Необходимо подсчитать количество набранных очков.
В первой строке входного файла записаны два числа N и R (1 ≤ N ≤ 100 000, 1 ≤ R ≤ 100 000 000). В последующих N строках записаны координаты точек попадания. Все координаты – целые числа, не превосходящие 1 000 000 000 по абсолютной величине.
В выходной файл выведите одно число – количество набранных очков.

Идея что-то вроде этого, но не то:
]

[Nikita++]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   mr:array[1..100000,1..2] of integer;
   r,n,i,c,j,z,max: integer;
   t1,t2:textfile;
begin
   assignfile(t1, 'C:\Users\Никита\Documents\Borland Studio Projects\input.txt');
   assignfile(t2, 'C:\Users\Никита\Documents\Borland Studio Projects\output.txt');
   reset(t1);
   readln(t1,n,r);
   z:=0;
   max:=0;
   for j := 1 to n do
      begin
        for i := 1 to 2 do
           readln(mr[i,j]);
      end;
   for j:=1 to n do
      begin
   for i:=1 to n do
         begin
      if mr[i,j]>max then max:=mr[i,j];
      c:=10-(max div r);
      z:=z+c;
         end;
      end;
   rewrite(t2);
   writeln(t2, z);
   closefile(t1);
   closefile(t2);
end.