Лучше использовать real при задании массивов (если не нравится extended), при использовании integer пожет получаться неверный ответ.
При делении получается число с плавающей точкой, если хочется использовать целочисленный тип, то нужно писать C:=round(A[i,j]/A[j,i]);