дана целочисленная матрица A(M,N) продублировать в матрице каждый столбец, являющийся перестановкой натуральных чисел от 1 до M

[Esmadjin]

const
x=100;
y=100;
var
  A:array[1..x,1..y]of integer;
  M,N,i,j,k: integer;
  isP: boolean;
  begin
    write('Введите M=');
    readln(M);
    write('Введите N=');
    readln(N);
    for i:=1 to M do
      for j:=1 to N do
      begin
        write('Введите A[',i,',',j,']=');
        readln(A[i,j]);
      end;
     for i:=1 to M do
       begin
      for j:=1 to N do
        write(A[i,j]:5);
      writeln
      end;
      
      
     
      for j:=1 to N do
      begin
        isP:= True;
        for i:=1 to M do
          if A[i,j]<>i then
          begin
            isP:=False;
            break;
          end;
          
          if isP then
          begin
            for i:=M downto 1 do
            begin
              for k:=N downto j+1 do
                A[i,k]:=A[i,k-1];
              A[i,k+1]:=A[i,j];
            end;
            Inc(N);    
          end;
      end;
      writeln;
      for i:=1 to M do
      begin
        for j:=1 to N do
          write(A[i,j]:5);
        writeln
      end;
  end.

не работает часть с проверкой, является ли столбец перестановкой чисел. хэлп плиз

[macomics]

Продублировав столбец вы его скопировали на j+1 место, но на следующей итерации цикла вы будете проверять как раз j+1 столбец, а он тот же самый, что и предыдущий.
Выход: разверните внешний цикл и перечисляйте столбцы в обратном порядке.

for j := N downto 1 do

[сфинкс]

чтоб определить "являющийся перестановкой натуральных чисел от 1 до M"
думаю нужен паттерн выяснения все ли числа в столбце

например присвоить 2-ичные шифры и тогда сумма даст константу
ведь числа будут в столбце по 1 разу типа сумма 2^ от 1 до М

пример: все ли числа подряд от 1 до 5 перемешаны среди 3 1 4 5 2

= 2^3 +2^1 +2^4 +2^5 +2^2 = 62

тогда общая формула =2^(M+1)-2

вариант сложения флагов плох возможностью посчитать просто количество
вместо точно всех подряд и тогда возможно перемножать флаги
тогда любой пробел цепочки покажет признак 0

[ViktorR]

Для проверки "являются числа столбца перестановкой натуральных чисел от 1 до M" можно создать массив размером M.
Массив очистить и заполнять элемент единицей, используя число столбца как индекс элемента массива.
Если в процессе заполнения индекс выходит за границу массива, то "не являются".
После заполнения проверить, что все элементы равны единице.
Если не так, например, элемент равен нулю или больше единицы, то "не является".

[BDA]

ViktorR, можно и в процессе заполнения проверять. Если перед увеличением в элементе не ноль, то "не является". Хотя не знаю, как окажется быстрее. Или использовать массив boolean размера M с флажками. Или использовать множества - В PascalABC.NET можно использовать любой тип в качестве базового.