Набор квадратных матриц Опции

[Asmodeus]

Здравствуйте!
Я первокурсник с Мат-Меха (УрГУ). Помогите плиз с задачкой. Буду очень признателен))

Задача:
Дан набор квадратных матриц. Проверить является ли Абелевой группой.

Нужно написать процедуры:
1. Ввод матрицы.
2. Печать матрицы.
3. Сложение каких-то матриц из этого набора.
4. Умножение каких-то матриц из этого набора.
5. Проверка на равенство каких-то двух матриц из набора.
6. Замкунутость относительно сложения.
7. Замкнутость относительно умножения.
8. Является ли Абелевой группой по умножению.
9. Какая-нибудь матрица из набора является единичной или нет.
10. Произведение каких-нибудь двух, равно единичной матрице.

Вот такая большая задача!
Пожалуйста помогите хотя бы с частью процедур (ну 1,2 сам сделал).
Спасибо всем)))

[Asmodeus]

Вот начало программы:

Код

Program Matrix;
  const m=2;
  type tm=1..m;
       y=array[tm,tm] of integer;
       mas=array[1..100] of y;



  Procedure ReadMatrix(var n:integer;                      {считывание матрицы}
                       var matrix:y);

    var i,j:integer;

    begin
      write ('Vvedite kol-vo strok & stolbcov matrix-->');
      readln (n);
        for i:=1 to n do
          begin
            for j:=1 to n do
              read (matrix[i,j]);
              writeln;
          end;
    end;


  Procedure WriteMatrix(var n:integer;                       {вывод матрицы на экран}
                        var matrix:y);

    var i,j:integer;

    begin
      writeln ('matrix');
      for i:=1 to n do
        begin
          for j:=1 to n do
            write (matrix[i,j],' ');
            writeln;
        end;
    end;

  
  var n:integer;                 {тестовая программа}
        matrix1:y;

  begin
    ReadMatrix(n,matrix1);
    readln;
    WriteMatrix(n,matrix1);
    readln;
  end.

напишите пожалуйста, как задать набор матриц.