Составить одномерный массив из номеров строк матрицы, где на побочной диагонали совершенное число

Uses Crt;
Var A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
    i,j,n,m:byte;
Function Sover(n:integer):boolean;
Var s,i:integer;
Begin
    s:=1;
    For i:=2 to n div 2 do
     if n mod i = 0 then s:=s+i;
    Sover:=n=s;
End;  
Begin
    ClrScr;Randomize;
    write('Размерность: ');readln(n);
    For i:=1 to n do
     For j:=1 to n do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    ClrScr;
    writeln('Введенная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    For i:=1 to n do
     if Sover(A[i,n-i+1]) then
     Begin
       inc(m);
       B[m]:=i;
     End;
    if m>0 then 
    Begin
      writeln('Полученный массив');
      For i:=1 to m do
       write(B[i]:2);
    End
    else writeln('Нету совершенных чисел на побочной диагонали');
    readln;
End.