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

[b0b]

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

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

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

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

С уважением.

[b0b]

program laba9;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
 n=3;
var
   mat1,mat2,mat3,resmat1,resmat2:array[1..n, 1..n] of integer;
   i,x,y,r,t:integer;

begin

 writeln('Enter 1st matrix: ');
  for y:=1 to n do
    for x:=1 to n do
      begin
       write('a[',x,',',y,']: ');
       readln(mat1[x,y]);
      end;

 Writeln('Enter 2nd matrix: ');
  for y:=1 to n do
    for x:=1 to n do
      begin
       write('b[',x,',',y,']: ');
       readln(mat2[x, y]);
      end;

 {подсчет матрицы AxB}

 for y:=1 to n do
   for x:=1 to n do
     begin
       r:=0;                          {обнуляем сумму произведений}
       for i:=1 to n do           {идем под горизонтали Mat1 и по вертикали}
        r:=r+mat1[i,y]*mat2[x,i]; {Mat2; умножаем и добавляем в R}
        resmat1[x,y]:=r;              {Resmat1[x, y] = результат = R}
     end;

 writeln;
 writeln('AxB=');

 for y:=1 to n do
   begin
    for x:=1 to n do
      write(resmat1[x,y]:4,' ');
      writeln;
   end;

 readln;

    Writeln('Enter 3rd matrix: ');
  for y:=1 to n do
    for x:=1 to n do
      begin
       write('b[',x,',',y,']: ');
       readln(mat3[x, y]);
      end;

   for y:=1 to n do
    for x:=1 to n do
      begin
        r:=0;
        for i:=1 to n do
          r:=r+resmat1[i,y]*mat3[x,i];
          resmat2[x,y]:=r;
        end;

   writeln;
 writeln('AxBxC=');

 for y:=1 to n do
   begin
    for x:=1 to n do
      write(resmat2[x,y]:4,' ');
      writeln;
   end;

 readln;

end.

вот. все работает.
немогу подогнать под условие задачи..