program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils, Windows;

type
    TTable = Array of Array of Integer;

function Input(): Integer;
var
    NotCorrect: Boolean;
    Value: Integer;
begin
    NotCorrect := true;
    while(NotCorrect) do
    begin
        try
            Readln(Value);
            NotCorrect := false;
        except
            Writeln('Введите число');
        end;
    end;
    Input := Value;
end;


procedure ShowTable(const Table: TTable);
var
    i, j: Integer;
begin
    for i := 0 to High(Table) do
    begin
        for j := 0 to High(Table[i]) do
            Write(' ', Table[i, j]);
        Writeln;
    end;
end;

function CreateTable(Rows, Cols: Integer): TTable;
var
    Table: TTable;
    i, j: Integer;
begin
    SetLength(Table, Rows, Cols);
    for i := 0 to High(Table) do
        for j := 0 to High(Table[i]) do
        begin
            Writeln('Введите ', j + 1, '-ый элемент столбца ', i + 1,
                '-ой строки');
            Table[i, j] := Input();
        end;
    CreateTable := Table;
end;

function FindColumn(const Table: TTable): String;
var
    i, j, k, Count, Last, Col: Integer;
begin
    Last := High(Table[0]);
    Col := 1;
    for i := 0 to High(Table[0]) do
    begin
        Count := 0;

        for j := 0 to High(Table) do
            if ((i + j > 0) and (Table[j, i] mod (i + j) = 0)) then
                Inc(Count);

        if(Count < Last) then
        begin
            Last := Count;
            Col := i+1;
        end;
    end;
    FindColumn := 'Столбец, где минимальное количество элементов кратно сумме индексов - '
        + IntToStr(Col);
end;

procedure Main();
var
    Rows, Cols: Integer;
    Table: TTable;
    Res: String;
begin
    Writeln('Данная программа находит столбец таблицы, где минимальное количество элементов кратно сумме индексов');
    Writeln;
    Writeln('Введите количество строк таблицы');
    Rows := Input();
    Writeln('Введите количество столбцов таблицы');
    Cols := Input();
    Table := CreateTable(Rows, Cols);
    Writeln('Получившаясь таблица:');
    ShowTable(Table);
    Res := FindColumn(Table);
    Writeln(Res);
end;

begin
    SetConsoleCp(1251);
    SetConsoleOutputCp(1251);
    Main();
    Readln;
end.