Пoмогитe решить лабораторную работу

[izoalex]

Надо написать модуль в котором лежит процедура проверяющая единичная матрица или нет. Я сделал ее, но надо чтобы вместо двоек были n.
Вот модуль:

unit akak;
interface
procedure matr(n:integer;var m:array[1..2,1..2] of real);
implementation
procedure matr(n:integer;var m:array[1..2,1..2] of real);
var i,j,k,p:integer;
begin
k:=0;
p:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then if m[i,j]=1 then k:=k+1;
if i<>j then if m[i,j]=0 then p:=p+1;
end;
end;
if k=n then begin if p=(n*n-n) then write('da') else write('net') end else write('net');
end;
begin end.

вот программа для проверки:

program prob;
uses akak,crt;
const n=2;
var m1:array[1..n,1..n] of integer;
m:array[1..n,1..n] of real;
i,j:integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
m1[i,j]:=random(2);
m[i,j]:=m1[i,j];
end;
end;
for i:=1 to n do begin
for j:=1 to n do
write(m1[i,j],' ');
writeln;
end;
matr(n,m);
readln;
end.