#danglam228

#include <bits/stdc++.h>
using namespace std;
int m, n;
int main() {
    ios_base::sync_with_stdio(false);
    cin.tie(0); cout.tie(0);
    //freopen(".INP", "r", stdin);
    //freopen(".OUT", "w", stdout);
    cin >> m >> n;
    vector<int> a(m * n);
    for (int i = 0; i < m; ++i) {
        for (int j = 0; j < n; ++j) {
            cin >> a[i * n + j];
        }
    }
    bool check1 = false;
    for (int i = 0; i < m; ++i) {
        int d1 = 0;
        for (int j = 1; j < n; ++j) {
            if (a[i * n + j] < a[i * n + d1]) {
                d1 = j;
            }
        }
        bool check2 = true;
        for (int k = 0; k < m; ++k) {
            if (a[k * n + d1] > a[i * n + d1]) {
                check2 = false;
                break;
            }
        }
        if (check2) {
            cout << "Vi tri phan tu yen ngua la: " << i + 1 << ", " << d1 + 1 << endl;
            check1 = true;
        }
    }
    if (!check1) {
        cout << "Khong co phan tu yen ngua" << endl;
    }
    return 0;
}

var m,n,i,j,k: Integer;
a:array [0..100,0..100] of Integer;
ok,kt: Boolean;
begin
readln(m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
Read(a[i, j]);
ok:=False;
for i:=0 to m-1 do
begin
for j:=0 to n-1 do
begin
kt:=True;
for k:=0 to n-1 do
begin
if a[i,j]>a[i,k] then
begin
kt:=False;
Break;
end;
end;
if kt then
begin
for k:=0 to m-1 do
begin
if a[i,j]<a[k,j] then
begin
kt:=False;
Break;
end;
end;
end;
if kt then
begin
WriteLn(i+1,',',j+1);
ok:= True;
end;
end;
end;
if not ok then
Writeln('ko co phan tu yen ngua nao');
readln;
readln;
end.