Problem z programem - układ współrzędnych.

Witam, mam problem z programem w Delphi. Mam wyznaczyć ilość punktów z pierwszej ćwiartki układu współrzędnych oraz obliczyć ich średnią odległość od środka układu współrzędnych. Punkty są zapisane w pliku i maja być z niego wczytane. Problem pojawia się przy średniej mam wrażenie, że liczymy mi ją dla każdego punktu, który jest w pliku, a nie tylko dla tych z pierwszej ćwiartki oto co udało mi się napisać, wiecie może gdzie jest błąd?

program cwiartki;

uses
  SysUtils;

type
  tablica = array[1..10] of real;
var
  n, i, ile : integer;
  x, y : tablica;
  p : textfile;
  srednia : real;
begin
  assignfile(p, 'Punkty.txt');
  reset(p);
  n := 0;
  while not eof(p) do
  begin
    n := n + 1;
    readln(p, x[n], y[n]);
  end;
  close(p);
  ile := 0;
  for i := 1 to n do
    if (x[i] > 0) and (y[i] > 0) then
    begin
      ile := ile + 1;
    end;
  if ile > 0 then
  begin
    for i := 1 to n do
      if (x[i] > 0) and (y[i] > 0) then
        srednia := srednia + sqrt(sqr(x[i]) + sqr(y[i]));
    srednia := srednia / n;
    writeln('Liczba punktow z pierwszej cwiartki układu wspolrzedncyh=', ile);
    writeln('Srednia odleglosc punktow z pierwszej cwiartki=', srednia);
    readln;
  end;
end.

srednia:=srednia/ile;