Найти совершенные числа в матрице

program Perfect;
 
var a: array [1..8, 1..8] of integer;
    i, j, k: integer;
    b: boolean;
 
begin
  b := true;
  k := 0;
  repeat
    randomize;
    for i := 1 to 8 do
      begin
        for j := 1 to 8 do
          begin
            a[i, j] := random(33550336) + 1;
            write(a[i, j]:9)
          end;
        writeln
      end;
    writeln('Perfect numbers:');
    for i := 1 to 8 do for j := 1 to 8 do
      begin
        if (i <> j) and
           ((a[i, j] = 6) or
           (a[i, j] = 28) or
           (a[i, j] = 496) or
           (a[i, j] = 8128) or
           (a[i, j] = 33550336)) then
          begin
            writeln('a[', i:1, ', ', j:1, '] = ', a[i, j]);
            b := false;
          end;
      end;
    if b then writeln('None');
    k := k + 1;
  until not(b) or (k = maxint);
  writeln('Repeats: ', k);
  readln
end.

program PerfNum;
 
{функция оценки совершенства числа}
function perfect(x: integer): boolean;
{perfect(x) = true, если число совершенное}
 
var h, g, sum: integer; {счётчик, максимальный делитель, сумма делителей}
 
begin
{если число <= 0}
{или}
{число > 496 и не оканчивается на   16, 28, 36, 56, 76}
  if (x <= 0) or (not(x mod 100 in [16, 28, 36, 56, 76]) and (x > 496))
    then perfect := false {тогда точно не совершенное}
    else {в остальных случаях нужно проверять}
      begin
        g := x div 2; {делитель нацело не может быть более половины числа}
        sum := 0; {сумма делителей пока равна 0}
        {Перебираем все натуральные числа от 1 до x/2,}
        {и если найден делитель, складываем его с суммой}
        for h := 1 to g do if x mod h = 0 then sum := sum + h;
        perfect := x = sum;
        {perfect(x) = true, если x равен сумме своих делителей, и}
        {perfect(x) = false, если x не равен сумме своих делителей}
      end;
end;
 
const c = 14; {границы массива}
      n = 10000; {диапазон чисел}
      {можно n вплоть до 2^31 - 1 = 2147483648 (это maxint)}
      {однако, не дождёшься, когда посчитает}
      q = 5; {количество разрядов для печати массива, для n = 10000 }
 
var a: array [1..c, 1..c] of integer; {массив}
    i, j, k: integer; {счётчик, счётчик, счётчик попыток}
    b: boolean;
 
begin
  randomize;
  b := false; {флаг нахождения совершенного числа}
  k := 0; {попыток нахождения ещё не было}
  repeat {начало цикла поиска}
    {генерируем очередной массив, потому что вводить врукопашную муторно}
    for i := 1 to c do
      begin
        for j := 1 to c do
          begin
            a[i, j] := random(n); {генерируем}
            write(a[i, j]:q) {и печатаем}
          end;
        writeln {перевод на новую строку}
      end;
    writeln('Perfect number(s):');
    {ищем в массиве совершенные числа}
    for i := 1 to c do for j := 1 to c do
      begin
        if (i <> j) and perfect(a[i, j]) then {кроме главной диагонали}
          begin
            b := true; {нашли}
            writeln('a[', i:1, ', ', j:1, '] = ', a[i, j]); {печатаем}
          end;
      end;
    if not(b) then writeln('Not found'); {не нашли, печатаем, что нет}
    k := k + 1; {следующая попытка}
  until b or (k = maxint); {цикл, пока не найдём или счетчик попыток не кончится}
  writeln('Repeats: ', k); {сколько было генераций массива}
  readln
end.