Дана целочисленная матрица NxN найти номера столбцов все элементы которых равны

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк(столбцов) в матрице:');  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(n,n,1,2);   a.Println(2); Writeln(2*n*'-');  for var i:=0 to n-1 do begin    var p:=a[0,i];    if a.Col(i).All(t->t=p) then Print(i+1)    end;end.ПримерКоличество строк(столбцов) в матрице: 5*** Исходная матрица *** 2 1 2 2 2 1 1 2 2 1 2 1 2 1 2 1 1 2 2 2 2 1 1 2 1----------2