Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
 SysUtils;
 type
 matr    =array[1..50,1..50] of integer;
Var
  i,j,n:integer;
  f:boolean;
  a:matr;
  Fin: TextFile;
procedure P(i,j,n:Integer);
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if ((i=j) and (a[i,j]<>1)) or ((i<>j) and (a[i,j]<>0)) then f:=false
    end;
   writeln
  end;
 end;
 
procedure vvodmatr(var a:matr;const namefile:string;var m,n: integer;fl1,fl2:boolean);
begin
 assign(Fin, 'File1.txt'); reset(Fin);
 readln(fin,m,n);
 for i:=1 to m do
 begin
  for j:=1 to n do
  read(fin,a[i,j]);
  readln(fin);
 end;
 if fl2 then
   close(fin);
end;
  begin
  P(n,j,i);
  f:=true;
  Append(Fin);
  if f then write('+')
  else write('-');
  CloseFile(output);
  readln
  end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
 matr    =array[1..50,1..50] of integer;
procedure vvodmatr(var f:TextFile; var a:matr;var n: integer);
var i,j:Integer;
begin
 assign(f, 'File1.txt'); //файл  в папке с программой
 reset(f);
 readln(f,n);
 for i:=1 to n do
 for j:=1 to n do
 read(f,a[i,j]);
 closefile(f);
end;
function P(a:matr;n:Integer):boolean;
var i,j:Integer;
begin
result:=true;
for i:=1 to n do
for j:=1 to n do
if ((i=j) and (a[i,j]<>1)) or ((i<>j) and (a[i,j]<>0)) then result:=false
end;
procedure vyvodres(var f:TextFile;a:matr;n: integer);
begin
 Append(f); //дописываем в фвйл
 Writeln(f);
 if P(a,n) then Writeln(f,'Матрица единичная')
 else Writeln(f,'Матрица не единичная');
 closefile(f);
end;
 
Var n:integer;
    a:matr;
    Fin: TextFile;
begin
vvodmatr(Fin,a,n);
P(a,n);
vyvodres(Fin,a,n);
write('Press Enter');
readln
end.