Матрица! Опции

[Анька]

Помогите, :p2: пожалуйста, решить 3 задачки, я уже целый день над ними сижу, но ничего не получается!!!
1.
Матрица, симметричная относительно главной диагонали, задана верхним треугольником в виде одномерного массива по строкам. Восстановить исходную квадратную матрицу и напечатать по строкам.
2.
Заданную квадратную матрицу преобразовать, используя умножение строки на число и сложение строк, таким образом, чтобы все элементы первого столбца обратились в нуль, кроме элемента, расположенного на главной диагонали.
3.
Дана вещественная матрица размером N х N, все элементы которой различны. Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим элементом.

[xds]

Задача 2.

Код

program XMatr;

{ НОД }
function GCD(n, m: Integer): Integer;
begin
 repeat
   if n > m then
     n := n mod m
   else
     m := m mod n;
 until (n = 0) or (m = 0);
 if n = 0 then
   GCD := m
 else
   GCD := n;
end;

var
 n, i, j, k1, k2: Integer;
 a: array[1..100, 1..100] of Integer;

begin
 Write('n> ');
 Readln(n);
 Randomize;
 for i := 1 to n do
   for j := 1 to n do
     a[i, j] := -9 + Random(20);

 Writeln('Исходная матрица:');
 for i := 1 to n do
   begin
     for j := 1 to n do
       Write(a[i, j]: 4);
     Writeln;
   end;
 Writeln;

 for i := 2 to n do
   begin
     k1 := GCD(Abs(a[1, 1]), Abs(a[i, 1]));
     k2 := -a[1, 1] div k1;
     k1 := a[i, 1] div k1;
     for j := 1 to n do
       a[i, j] := a[i, j] * k2 + a[1, j] * k1;
   end;

 Writeln('Преобразованная матрица:');
 for i := 1 to n do
   begin
     for j := 1 to n do
       Write(a[i, j]: 4);
     Writeln;
   end;
end.