[YVitaliy]

Не выше а ниже, во-первых (i как индекс столбца идет слева-направо), и чтобы включить саму диагональ нужно не
for j:=i+1 to 10 a просто for j:=10 downto i