Const
 m1=7;
 n1=5;
Var
 MassivNN,Q:Array[1..m1,1..n1] of Integer;
 v_min,v_max,Dummy,Min,Sum,Max:Integer;
 i,j,k,m,n,Imin,Jmax:byte;
 mn:Word;
 f:Text;

Begin
 Assign(f,'D:\xxx.txt');
 Rewrite(f);
 Randomize;
 Write('v_min= ');
 Readln(v_min);
 Write('v_max= ');
 Readln(v_max);
 for i:=1 to m1 do
  begin
   for j:=1 to n1 do
    begin
     MassivNN[i,j]:=v_min+Random(v_max-v_min);
     write(MassivNN[i,j]:4);
     write(f,MassivNN[i,j]:4);
    end;
   writeln;
   If i<m1 then writeln(f);
  end;
 Close(f);
 Writeln;
 Reset(f);
 n:=0;
 Repeat
  read(f,Dummy);
  Inc(n);
 Until EoLn(f);
 Reset(f);
 mn:=0;
 Repeat
  If Not(Eof(f)) then
   begin
    read(f,Dummy);
    Inc(mn);
   end;
 Until EoF(f);
 m:=mn div n;
 Reset(f);
 For i:=1 to m do
  For j:=1 to n do
   read(f,Q[i,j]);
 Close(f);
 Min:=v_max*n;
 Max:=v_min;
 for i:=1 to m do
  begin
   Sum:=Q[i,1];
   for j:=2 to n do Sum:=Sum+Q[i,j];
   if Sum<Min then
    begin
     Min:=Sum;
     Imin:=i;
    end;
  end;
 for j:=1 to n do
  begin
   Sum:=Q[1,j];
   for i:=2 to m do Sum:=Sum+Q[i,j];
   if Sum>Max then
    begin
     Max:=Sum;
     Jmax:=j;
    end;
  end;
 Writeln('Line (',Imin,') with minimal sum: ');
 For j:=1 to n do write(Q[Imin,j]:4);
 Writeln;
 Writeln;
 Writeln('Column (',Jmax,') with maximal sum:');
 For i:=1 to m do write(Q[i,Jmax]:4);
 Readln
End.