Есть ли на главной диагонали матрицы размером 10х10 два равных элемента

var a : array[1..10, 1..10] of integer; i, j : integer; check : boolean;
begin
   for i := 1 to 10 do
      for j := 1 to 10 do begin
         write('array[', i, ', ', j, '] = ');
         readln(a[i, j])
      end;
   check := false;
   for i := 1 to 9 do
      for j := i + 1 to 10 do
         if a[i, i] <> a[j, j] then
            check := true;
   if check then writeln('На главной диагонали есть разные элементы')
   else writeln('На главной диагонали нет разных элементов')
end.

var a : array[1..10, 1..10] of integer; i, j : integer; check : boolean;
begin
   for i := 1 to 10 do
      for j := 1 to 10 do begin
         write('array[', i, ', ', j, '] = ');
         readln(a[i, j])
      end;
   check := true;
   for i := 1 to 10 do
      for j := i + 1 to 10 do
         if a[i, j] <> 0 then check := false;
   if check then writeln('Верхнетреугольная матрица')
   else writeln('Не верхнетреугольная матрица')
end.