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

[Asmodeus]

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

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

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

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

[volvo]

Ах, вот оно в чем дело... Тогда придется работать вот так:

{$R-}

type
  pt = ^int_array;
  int_array = array[1 .. 1] of integer;

  matrix = record
    data: pt;
    size: integer;
  end;

  vector = array[1 .. 10] of matrix;

function index(i, j, sz: integer): integer;
begin
  index := pred(i) * sz + j;
end;

procedure input(var mx: matrix);
var i, j: integer;
begin
  write('size = '); readln(mx.size);
  getmem(mx.data, sqr(mx.size) * sizeof(integer));

  for i := 1 to mx.size do
    for j := 1 to mx.size do begin
      write('mx[', i, ', ', j, '] = ');
      readln(mx.data^[index(i, j, mx.size)]);
    end;

end;

procedure print(const mx: matrix);
var i, j: integer;
begin
  with mx do
    for i := 1 to size do begin
      for j := 1 to size do
        write(data^[index(i, j, size)]:4);
      writeln;
    end;
end;

var
  mx_set: vector;
  i: integer;

begin
  for i := 1 to 5 do
    input(mx_set[i]);

  for i := 1 to 5 do begin
    writeln('matrix #', i);
    print(mx_set[i]);
  end;

  { ... Дальнейшая работа с матрицами ...
     Не забудь освободить память перед завершением работы программы } 
end.