Версия:Turbo Pascal 7.0
Задание: Перемножить две симметрические матрицы, заданные в одномерных массивах верхними треугольниками по строкам. Результат получить в одномерном массиве. Вывести в привычном виде исходные матрицы и матрицу-результат.
Я написал программу, где значения из одномерных массивов сначала присваиваются двумерным, а потом производится умножение, а от меня требуется производить умножение с помощью одномерных и результат получить тоже в одноиерном массиве и лишь потом, при выводе переслать результат в двумерный массив . Что-то не могу додуматься как осуществить это перемножение((( 
Моя программа: 
http://slil.ru/25244676
Прошу подсказать алгоритом такого перемножения или исправить в моей программе.
Заранее благодарен!