Задача по матрицам Опции

[Eskel]

Заполняется с клавиатуры верхняя часть. Потом с помощью операторов присваивания, надо сделать матрицу симметричной... Помогите, плиз, написать саму часть где матрица делается симметричной...

[Eskel]

Спасибо. Вот еще, помогите ошибку из проги убрать. Препод сказал, что я неправильно открытый массив использовал:

Program art2;
uses crt;
Const m=15;
Var
a,b:array[1..m] of real;
c:array[1..m+5] of real;
x:real; k1,k2,k3:integer;
procedure zap(k:integer; var f:array of real);
Var
i:integer;
begin
for i:=1 to k do
f[i]:=200*random-100 end;
procedure vivod(k:integer; var f:array of real);
Var
i:integer;
begin
for i:=1 to k do
write(f[i]1,'  ') end;
procedure nax(k:integer; f:array of real; var r:integer);
Var
i:integer;
Begin
r:=0;
for i:=1 to k do
if f[i]<0 then r:=r+1 end;
procedure umnog(k:integer; r:real; var f:array of real);
var
i:integer;
Begin
for i:=1 to k do
f[i]:=f[i]*r end;
Begin clrscr;
Randomize;
write('vvedite x '); readln(x);
zap(m,a); writeln('massiv A'); vivod(m,a); writeln;
zap(m,b); writeln('massiv B'); vivod(m,b); writeln;
zap(m+5,c); writeln('massiv C'); vivod(m+5,c); writeln;
nax(m,a,k1); nax(m,b,k2); nax(m+5,c,k3);
writeln('kol-vo otriz v masA= ',k1);
writeln('kol-vo otriz v masB= ',k2);
writeln('kol-vo otriz v masC= ',k3);
if (k1<k2) and (k1<k3) then begin umnog(m,x,a); vivod(m,a) end else
if (k2<k1) and (k2<k3) then begin umnog(m,sqr(x),b); vivod(m,b) end else
if (k3<k1) and (k3<k2) then begin umnog(m+5,x/10,c); vivod(m+5,c) end else
writeln('kol-va ravni');
readln
End.

Задание: Дано целое число М, вещественное число Х, вещественные кортежи А,В[1..М], C[1..M+5]. Кортеж, имеющий наименьшее кол-во отриц элементов(в предположении, что такой кортеж один), домножить на R, где R=X для кортежа А, R=sqr(x) для кортежа В и R=X/10 для кортежа С