Ссылки, обратный порядок.. Опции

[b0b]

Вечер добрый. Необходимо срочно решить 2 задачи. . Завтра зачет, не допустит препод, если не будет их..

Ссылочный тип данных:
1. Составить программу, которая переворачивает список, т.е. изменяет ссылки так, чтобы его элементы оказались расположены в обратном порядке.

Модули:
2. В модуль включить подпрограмму нахождения произведения квадратных матриц А и В третьего порядка. В основной программе для трех квадратных матриц А, В и С 3-го порядка, вычислить Т=А*В*С.

В первой не знаю с чего начать.
Во второй, теоретически догадываюсь.

С уважением.

[volvo]

Const
  n = 3;
Type 
  mxType = array[1 .. n, 1 .. n] Of Integer;

Procedure multMatrix(Var res: mxType; A, B: mxType);
Var x, y, r: Integer;
Begin
  for y:=1 to n do
    for x:=1 to n do begin
      r:=0;
      for i:=1 to n do
        r:=r+A[i,y]*B[x,i];
      res[x,y]:=r;  
    end;
End;

и в основной программе:

Writeln('Enter 1st matrix: ');
{
  Здесь - ввод 1 матрицы ( A )
  ...
}

Writeln('Enter 2nd matrix: ');
{ 
  Здесь - ввод 2 матрицы ( B )
  ...
}

{
  подсчет матрицы AxB
}
multMatr(resmat1, mat1, mat2);
writeln('AxB='); { ... Распечатываешь resmat1 }

readln;
Writeln('Enter 3rd matrix: ');
{
  Вводишь 3-ю матрицу ( C )
  ...
}
multMatr(resmat2, resmat1, mat3);
writeln('AxBxC='); { ... Распечатываешь resmat2 }
...