[AlexSku]

Если нужны точки левее (с меньшим X) и ниже (c бОльшим Y), то вот код (правда, не проверял).

Код:

type
  RangPoint = record
    p: TPoint;
    rang: Integer;
  end;

var Points: array[1..30] of RangPoint;
procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  Randomize;
  for i:= 1 to 30 do Points[i].p:= Point(Random(100), Random(100));

  for i:= 1 to 30 do
  begin
    Points[i].rang:= 0;
    for j:= 1 to 30 do
      if (Points[j].p.X < Points[i].p.X) and (Points[j].p.Y > Points[i].p.X) then
        Inc(Points[i].rang);
  end;
end;