сортировка столбцов под побочной диагональю

Program Massiv;                                                          
uses crt;                                                                     
const N=19;                                                                   
Type mass=array [1..N, 1..N] of integer;                                      
Var A: mass;                                                                  
    i, j, k, d:integer;                                                       
    FLAG: boolean;                                                            
    min, BUF: integer;                                                    
                                                                              
Begin                                                                         
 clrscr;                                                                      
                                                                              
                                                           
 for i:=1 to N do                                                             
  begin                                                                       
   for j:=1 to N do                                                           
                                                                              
    A[i,j]:=random(100);                                                      
  end;                                                                        
                                                                              
   k:=2; d:=N;                                                                
 
 repeat                                                                       
 i:=k; j:=d;                                                                  
   min:=A[i,j];    
   FLAG:=false;                                                               
                                        
   repeat                                                                     
    for i:=k to N-1 do                                                        
                                                                              
      if A[i,j]<min                                                           
       then                                                                   
        begin                                          
         
         BUF:=A[i,j];                                                         
         A[i,j]:=min;                                                         
         min:=BUF;                                                            
         FlAG:=true;                                        
                                                                              
        end                                                 
      else flag:=false
   until FLAG=false;  
 
   k:=k+1; d:=d-1;
 until (k=N) and (d=1)  
...