sgd я так понимаю сумма главной диагонали, в условии про это не сказано, подозреваю, что это либо дополнительное задание, либо остаток от другой программы, которую Вы переделываете.
сразу нужно сделать цикл, который пробегает все элементы под главной диагональю (поскольку изменять нужно не все элементы)
for i:=2 to n do
for j:=1 to i-1 do
и в этом цикле нужно проделать указанную в условии операцию
if (A[i,j] > A[j,i]) then A[i,j]:=(A[i,j]+A[j,i])/2; (непонятно с чего Вы взяли, что должна быть полусумма индексов, ведь сказано полусумма элементов, и знак неравенства Вы изменили).
Так как матрица действительная, то нужно использовать именно /2, а не div 2
Вот и всё.
