[FIXED][FIXED]program lab6;
Uses Crt;
const nmax =  10 ;

type mas = array [ 1 ..nmax] of integer;
     matr = array [ 1 ..nmax,  1 ..nmax] of integer;

procedure Inputmatrix (var a:matr; n,m:integer);

var i,j:integer;

begin
clrscr;
writeln('введите матрицу');
 for i:= 1  to n do
  for j:= 1  to m do
   begin
    GotoXY (j* 5 ,i+ 5 );
    readln (a[i,j]);
   end;
end;


procedure shell (var a:matr; n,m:integer);
 const t= 5 ;

 var i,j,c,k,s,l:integer;  h: array [ 1 ..t] of integer; v:integer;

begin
 h[ 1 ]:= 9 ; h[ 2 ]:= 5 ; h[ 3 ]:= 3 ; h[ 4 ]:= 2 ; h[ 5 ]:= 1 ;
 for j:= 1  to m do  {заходим в столбец}
  begin
   for l:= 1  to t do
    begin
     k:=h[l];
     s:=-k;
     for i:=k+ 1  to n do
      begin
       v:=A[i,j];
       c:=i-k;
       if s= 0  then begin
       s:=-k;
       s:=s+ 1 ;
       A[s,j]:=v;
      end;
     while (v<A[c,j]) and (c<m) do
      begin
       a[c+k,j]:=a[c,j];
       c:=c-k;
      end;
     a[c+k,j]:=v;
    end;
   end;
  end;

end;

procedure output (var a:matr; n,m:integer);

var i,j:integer;

begin
 clrscr;
  for i:= 1  to n do
   begin
   for j:= 1  to m do
    begin
     GotoXY (j* 8 ,i+ 2 );
     write (a[i,j]);
    end;
   end;
end;

var a:matr; n,m:integer;


Begin
 writeln('сортировка');
 writeln('введите кол-во строк и столбцов');
 readln (n,m);
 Inputmatrix (a,n,m);
 shell (a,n,m);
 Output(a,n,m);
 readln;
End.[/FIXED][/FIXED]