Первые k элементов столбца матрицы переставить в обратном порядке

const Nmass=10;
var A:array[1..Nmass,1..Nmass] of integer;
i,j,N,M,min:byte;
k,k1:integer;
begin
  writeLn('Введите число элементов в массиве A');
  readLn(N,M);
  writeLn('Вводим элементы массива A:');
  for i:=1 to N do
    for j:=1 to N do
  begin
  write('A[',i,',',j,']=');
  readLn(A[i,j]);
  end;
  writeLn('массив A до изменения:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
writeln;
k:=0;
for j:=1 to N do
  begin
          min:=255;
    for i:=1 to N do
 
      begin
      if A[i,j]<=min then
      min:=A[i,j];
      end;
    write('минимум столбца ');
    writeln(min);
    for i:=1 to N do
      begin
      if A[i,j]=min then
        k:=N-i;        
      end;
    write('кол-во чисел после минимума ');
    writeln(k);
    if (k<>0) and (k<>1) then
      begin
        for i:=1 to k do
          begin
               k1:=A[i,j];
               A[i,j]:=A[N+1-k,j];
               A[N+1-k,j]:=k1;
          end;
      end;
    end;
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
end.