interface
   type
   T_Int=integer;
   T_Elem=real;
   T_Key=T_Elem;
   PKey=^TKey;
   TIntarr=array [ 1 .. 10 ] of T_Int;
   T_Real=byte;
   T_Log=boolean;
   T_Long=longint;
   T_Arr=array[ 1 .. 1 ] of T_Elem;
   P_Arr=^T_Arr;
   T_Array=array[ 1 .. 1 ] of P_Arr;
   P_Array=^T_Array;
   P_Matr=^C_Matr;
   TElem=      record
               key :T_Elem;
               data: P_Arr;
               end;
    TKey=array[ 1 .. 1 ] of TElem;

   C_Matr=object
           private
            a:P_Array;
            str , st:T_Int;
{****}
function C_Matr.ShellSort;
var  i,j,k,l,m,i1: T_Int;
     h:TIntarr;
     key: PKey;
     sum,w: T_Elem;
     x: TElem;
begin

begin
clrscr;
for i:= 1  to str do
  begin
  writeln;
  for j:= 1  to st do
                 begin
                 w:=a^[i]^[j];
                 write(w: 7 : 4 ,' ');
                 end;

  readln;
  end;
readln;
end;

if (longint(st*sizeof(TElem)) < Maxavail) and (a<>nil) then
    begin
    ShellSort:=true;
    getmem (key, st*sizeof(TElem));
    for j:= 1  to st do
                   begin
                   sum:= 0 ;
                   for i:= 1  to str do
                   if a^[i]^[j]> 0  then sum:=sum+a^[i]^[j];
                   key^[j].key:=sum;
                   key^[j].data:=a^[j];
                   writeln('sum= ',sum,'  key= ',key^[j].key);
                   end;
    for i1:= 1  to st do
    write(key^[i1].key,'  ');
    readln;

{Cама сортировка Шелла}

h[ 1 ]:= 7 ;
h[ 2 ]:= 5 ;
h[ 3 ]:= 3 ;
h[ 4 ]:= 1 ;
for m:= 1  to  4  do
              begin
              k:=h[m];
              for j:=k+ 1  to st do
              begin
              x:=key^[j];
              l:=j-k;
              while (l> 0 ) and (x.key<=key^[l].key) do
                                               begin
                                               key^[l+k]:=key^[l];
                                               l:=l-k;
                                               end;
              key^[l+k]:=x;
              end;
              end;
  for i1:= 1  to st do
  begin
  write(key^[i1].key,'  ');
  end;
  readln;


for j:= 1  to st do
 a^[j]:=key^[j].data;


Freemem (key, st*sizeof(TElem));
end
else
begin
ShellSort:=false;
Failure( 1 );
end;
end;