Определить наибольший среди отрицательных элементов четных столбцов матрицы целых чисел размером 4x6.

procedure TForml.ButtonlClick(Sender: TObject);
 
i:integer; // Индекс строки.
j:integer; // Индекс столбца.
n_min:integer; // Номер столбца с наименьшей суммой элементов.
SumCol: Real; // Сумма столбца.
minSumCol: Real; // Минимальная сумма столбца.
a: array [1..4, 1..5] of Real; // Матрица действительных чисел 4x5.
 
begin
// Запись элементов массива из компонента StririgGrid1 в массив a[]. 
for i:=1 to 4 do    // Перебираем элементы строк.
    for j:=1 to 5 do // Перебираем элементы столбцов.
        // Так как строки нумеруются с нуля то StrinqGrid1.Cells [j-1, i-1]. 
        a[i,j]:=StrToFloat(StringGrid1.Cells[j-1, i-1]);
minSumCol:=0; // Минимальную сумму элементов столбца в ноль. 
for i: 1 to 4 do    // Предположим, что минимальная сумма элементов -
                      // сосредоточена в первом столбце. 
    minSumCol:=minSumColla[i,1]; // Нахождение суммы эл -ов 1 го столбца. 
n_min:=1; // Предположим, что номер столбца с минимальной суммой эл-ов - 1-й
for j:=1 to 5 do    // Фиксируем столбцы. 
    begin
    SumCol:=0;  // Текущую сумму столбца в ноль,
    for i:=l to 4 do //Перебираем строки.
        SumCol:=SumCol+a[i,j]; // Находим текущую сумму столбца. 
    if SumCol < minSumCol then // Если текущая сумма ст-ца меньше минимальной то: 
        begin
        minSumCol:=SumCol;  // присвоим "значение текущей суммы минимальной,
        n_min:=j;   // сохраним номер столбца.
        end; 
    end;
 
//Вывод результата в компононент Label. 
Label4.Caption:=IntToStr(n_min);
end;
end.

const n=4;
      m=6;
var
  Form1: TForm1;
  var a:array[1..n,1..m] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.ColCount:=6;
StringGrid1.RowCount:=4;
ShowMessage('Заполните таблицу целыми,'+#13#10+' положительными и отрицателдьными числами');
StringGrid1.Options:=StringGrid1.Options+[goEditing];
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imx,mx:integer;
begin
imx:=0;
for i:=1 to n do
for j:=1 to m do
 begin
  a[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
  if (a[i,j]<0) and(j mod 2=0) then
   begin
    imx:=1;
    mx:=a[i,j];
   end;
 end;
if imx=0 then Edit1.Text:='В матрице нет отрицательных чисел в четных столбцах'
else
 begin
  for i:=1 to n do
  for j:=2 to m do
  if (j mod 2=0)and(a[i,j]<0)and(a[i,j]>mx) then mx:=a[i,j];
  Edit1.Text:='Максимальный отрицательный элемент в четных столбцах='+IntToStr(mx);
 end; 
end;