randomize;
for i := 1 to 100 do
for j := 1 to 2 do a[i,j]:= random(21)+10;
Var a: array[1 .. 30, 1 .. 2] of integer;
...
randomize;
n := random(21) + 10;
For i := 1 to n Do
for j := 1 to 2 do a[i, j] := random(101);
Это еще без проверки на генерацию одинаковых точек...