Программа - обратная матрица (паскаль)

[tree]

Здравствуйте, помогите пожалуйста решить задачку
Разработать алгоритм вычисления элементов обратной матрицы. В Pascal
Желательно написать мне в асю: 463527457
Работу нужна до вечера 23.07.2008 За работу - вознаграждение

[tree]

Спасибо, решение найдено

[Oleg_Rus]

выложи код, может кому-то пригодиться...

[Morrigan]

Код: Выделить всё

program zadacha5;
type myarray=array of array of integer;
var A:myarray;//матрица исходная
    rows,cols:integer;

procedure input( var m1:myarray; var rows,cols:integer); {процедура ввода}
var i,j:integer;{счетчик элементов матрицы}
begin
write ('введите количество строк = ');
readln (rows);
write ('введите количество столбцов = ');
readln(cols);
setlength(m1,rows,cols);
for i:=0 to rows-1 do
 for j:=0 to cols-1 do
  begin
  write ('введите элемент [', i+1,',',j+1, '] = ');
  readln(m1[i,j]);{занесение элементов матрицы в память}
  end;
end;

procedure output(m1:myarray; rows,cols:integer);//процедура вывода на экран
var i,j:integer;
begin
for i:=0 to rows-1 do
 begin
  for j:=0 to cols-1 do
  write(m1[i,j]:3);{вывод с шагом 3}
  writeln;
 end;
readln;
end;

procedure perest(m1:myarray; rows,cols:integer); {функция получения траспонированной матрицы}
var i,j :integer;
    m2 : myarray;
begin
for i:=0 to rows-1 do
  for j:=0 to cols-1 do
  m2[j,i]:=m1[i,j];{транспонирование}
write(m2[j,i]:3);
end;


begin
input(A,rows,cols);
output(A,rows,cols);
writeln('транспонированная матрица : ');
perest(A,rows,cols);
readln;
end.

вот. помогите плиз найти ошибку, выскакивает 201 при процедуре транспонирования