Матрицы

var i,j,b,s,k,t:integer;
b=0;
for i:=1 to 8 do
    begin
            s:=0;   
            for j:=1 to 8 do
                s:=s+m[j,i];
                if s>b then begin b:=s; k:=i; end;
    end;
t:=1;
for j:=2 to 8 do
     if m[j,k]<m[t,k] then t:=j;
{после выполнения всех срок выше, искомый искомый элемент m[t,k]}

var i,j,b,s,k,t:integer;
begin
b=0;
...............
end.

b:=0;

b=0;

 uses crt;
 
var i,j,b,s,k,t:integer;
m:array[1..8,1..8]of integer;
begin
b:=0;
for i:=1 to 8 do
    begin
            s:=0;   
            for j:=1 to 8 do
                s:=s+m[j,i];
                if s>b then
                begin
                b:=s; k:=i;
                  end;
  
t:=1;
 
for j:=2 to 8 do
     if m[j,k]<m[t,k] then t:=j;
    writeln(m[t,k]);
 
readkey;
end.

uses crt;
const n=8;
var i,j,b,s,k:integer;
    m:array[1..n,1..n]of integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    m[i,j]:=random(20)-9;
    write(m[i,j]:4);
   end;
  writeln;
 end;
b:=0;k:=1;
for j:=1 to n do
b:=b+abs(m[1,j]);//считаем сумму модулей в первом столбце, пока это макс.
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+abs(m[i,j]);
  if s> b then
   begin
     b:=s;//ищем новый максимум
     k:=j;//и номер столбца
   end;
 end;
writeln('Наибольшая сумма модулей=',b,' столбец ',k);
b:=m[1,k];
for i:=2 to n do
if m[i,k]<b then b:=m[i,k];//минимум в столбце
write('Наименьший элемент в нем=',b);
readkey
end.