Задача на матрицу!!!!!!!!!

program matrix;

const
    n=5;
type
    TMatrix=array [1..n] of double;

{ Ввод матрицы }
procedure enter(var m:TMatrix, name:string);
    var
        i,j:integer;
begin
    for i:=1 to n do
        for j:=1 to n do begin
            write(name,'[',i,',',j,']=? ');
            readln(m[i,j]);
        end;
end;

{ Вывод матрицы }
procedure print(m:TMatrix, name:string);
    var
        i,j:integer;
begin
    writeln('matrix ',name,' = {');
    for i:=1 to n do begin
        write('  ');
        for j:=1 to n do begin
            write(m[i,j],' ');
        end;
        writeln;
    end;
    writeln('}');
end;

{ Генерация матрицы по формуле }
procedure generate(var m:TMatrix);
    var
        i,j:integer;
begin
    for i:=1 to n do
        for j:=1 to n do
            m[i,j]:=1.0/(i+j-1.0);
end;

{ Перемножение матриц }
procedure AxB(A,B: TMatrix; var AB:TMatrix);
    var
        i,j,k:integer;
begin
    for i:=1 to n do
        for j:=1 to n do begin
            AB[i,j]:=0;
            for k:=1 to n do
                AB[i,j]:=AB[i,j] + A[i,k]*B[k,j];
        end;
end;

var
    A,B,AB:TMatrix;
begin
    { Основная программа }
end.

type
    TMatrix=array [1..n,1..n] of double;