Задача с объектами, матрица,вектор... Опции

[dimon1988]

Помогите решить задачу, а то я что-то зашел в тупик...
"Нахождение суммы,разности,присваивания,произведения векторов и матриц различных типов (целого,вещественного,комплексного). С помощью этих объектов найдите n-ю степень матрицы"
Уже столько форумов перерыл, нигде ничего толкового нету...может вы мне поможите
Буду очень благодарен

[dimon1988]

У меня возникает ошибка "Too many variables", когда я пытаюсь добавить в варе еще одну матрицу. Вот код:

program objects;
uses crt;
type
  matrix = object
    n,m:integer;
    mas: array[1..100,1..100] of real;
    procedure Init(var a:matrix);
    procedure Print(var a:matrix);
    end;

procedure matrix.Init;
var i,j:byte;
begin
writeln('Vvedite kolichestvo stolbcov matrici: ');
readln(a.n);
writeln('Vvedite kolichestvo strok matrici: ');
readln(a.m);
for i:=1 to a.n do begin
for j:=1 to a.m do begin
    writeln('Vvedite element [',i,',',j,']');
    readln(a.mas[i,j]);
    end;
    end;
end;

procedure matrix.Print;
var i,j:byte;
begin
for j:=1 to a.m do begin
    if j<>1 then
       writeln('');
for i:=1 to a.n do begin
    write(a.mas[i,j]:8:0);
    end;
    end;
end;

var x1:matrix;
begin
clrscr;
x1.Init(x1);
x1.print(x1);
end.

Добавлено через 2 мин.
У меня возникает ошибка "Too many variables", когда я пытаюсь добавить в варе еще одну матрицу. Вот код:
Может кто-нибудь знает в чем дело?