CONST NN = 5;
VAR
   a: ARRAY[1..NN, 1..NN] OF LONGINT;
PROCEDURE xxx;
VAR
   i, j, k: INTEGER;
   f: BOOLEAN;
BEGIN
    FOR i:=1 TO NN DO
        FOR j:=1 TO NN DO BEGIN
            f := TRUE;
            FOR k:=1 TO NN DO
                IF (a[i, j] < a[k, j]) OR (a[i, j] > a[i, k]) THEN BEGIN
                   f := FALSE; BREAK;
                END;
            IF f THEN WRITELN('i= ', i, ' j= ', j, ' a[i, j]= ', a[i, j]);
        END;
END;
VAR
   i, j: INTEGER;
BEGIN
    FOR i:=1 TO NN DO
        FOR j:=1 TO NN DO BEGIN
            WRITE('Input a[', i, ', ', j, ']: ');
            READLN(a[i, j]);
        END;
    WRITELN('Result:');x
    xxx;
    READLN;
END.