[U.B.M.]

Код:

for i := 1 to 9 do
  for j := i+1 to 10 do
  begin

//    a[i,j] - элементы выше диагонали (которая левоверх -> правониз)

  end

дальше с ними делаешь всё, что хочешь