Дана матрица А.Составить программу сортировки по возрастанию столбцов. Переставить местами 1-ю и строки матрицы

Program zadacha;
Const m=3;
n=4;
var
A:array[1..m,1..n] of integer;
c, k, i, j ; integer;
s:real;
begin
writeln
writeln ('Ishodnya matrix');                                                             
for i:=1 to m do begin                                                        
for j:=1 to n do read(A[i,j]);                                                
readln;                                                                       
end;                                                                          
for c:=1 to n do                                                              
for i:=2 to m do                                                              
for j:=m downto i do                                                          
begin                                                                         
if A[j,c]<A[j-1,c] then                                                       
begin                                                                         
k:=A[j-1,c];                                                                  
A[j-1,c]:=A[j,c];                                                             
A[j,c]:=k;                                                                    
end;                                                                          
end;                                                        
writeln;                                                                      
writeln(‘Matrix’);                                                            
writeln;                                                                      
for i:=1 to n do                                                              
begin                                                                         
k:=A[1,i];                                                                    
A[1,i]:=A[m,i];                                                               
A[m,i]:=k;                                                                    
end;                                                                          
for i:=1 to m do                                                              
begin                                                                         
for j:=1 to n do write(A[i,j]:7);                                             
writeln(A[i,j], ‘ ‘);                                                                      
end;                                                                          
readln;                                                                       
end.

Program zadacha;
Const m=3;
n=4;
var
A:array[1..m,1..n] of integer;
c, k, i, j : integer;
s:real;
begin
writeln;
writeln ('Ishodnya matrix');                                                             
for i:=1 to m do begin                                                        
for j:=1 to n do read(A[i,j]);                                                
readln;                                                                       
end;                                                                          
for c:=1 to n do                                                              
for i:=2 to m do                                                              
for j:=m downto i do                                                          
begin                                                                         
if A[j,c]<A[j-1,c] then                                                       
begin                                                                         
k:=A[j-1,c];                                                                  
A[j-1,c]:=A[j,c];                                                             
A[j,c]:=k;                                                                    
end;                                                                          
end;                                                        
writeln;                                                                      
writeln('Matrix posle sortirovki');                                                            
writeln;                   
for i:=1 to m do                                                              
begin                                                                         
for j:=1 to n do write(A[i,j]:7);                                             
writeln;                                                                      
end;                                                    
for i:=1 to n do                                                              
begin                                                                         
k:=A[1,i];                                                                    
A[1,i]:=A[m,i];                                                               
A[m,i]:=k;                                                                    
end;           
writeln;                                                                      
writeln('Matrix posle perestanovki strok');                                                            
writeln;                                                               
for i:=1 to m do                                                              
begin                                                                         
for j:=1 to n do write(A[i,j]:7);                                             
writeln;                                                                      
end;                                                                          
readln;                                                                       
end.