(*PROGRAM SATTEL*);                                         
 CONST Z=4;S=5;(*MATRIXDIMENSIONEN                        *)
 VAR A:ARRAY[1..Z,1..S]OF INTEGER;                          
     I,J,ZEILE,SPALTE,X:INTEGER;                            
     MAXZMIN:INTEGER;(*MAXIMUM DER ZEILENMINIMA           *)
     MINSMAX:INTEGER;(*MINIMUM DER SPALTENMAXIMA          *)
                                                            
BEGIN                                                       
 (*MATRIX ZEILENWEISE EINLESEN UND DRUCKEN:               *)
 FOR I:=1 TO Z DO                                           
   FOR J:=1 TO S DO                                         
     READLN(A[I,J]);                                        
 FOR I:=1 TO Z DO                                           
  BEGIN                                                     
   FOR J:=1 TO S DO                                         
    BEGIN                                                   
     X:=A[I,J];IF X<10 THEN WRITE(" ");                     
     WRITE(A[I,J])                                          
    END;                                                    
   WRITELN                                                  
  END;                                                      
                                                            
 (*MAXIMUM DER ZEILENMINIMA BESTIMMEN:                    *)
 MAXZMIN:=-1;                                               
 FOR I:=1 TO Z DO                                           
  BEGIN X:=A[I,1];                                          
   FOR J:=2 TO S DO                                         
    IF A[I,J]<X THEN X:=A[I,J];                             
   IF X>MAXZMIN THEN BEGIN MAXZMIN:=X;ZEILE:=I END;         
  END;                                                      
 (*MINIMUM DER SPALTENMAXIMA BESTIMMEN:                   *)
 MINSMAX:=-1;                                               
 FOR J:=1 TO S DO                                           
  BEGIN X:=A[1,J];                                          
   FOR I:=2 TO Z DO                                         
    IF A[I,J]>X THEN X:=A[I,J];                             
   IF(X<MINSMAX)OR(MINSMAX=-1)THEN                          
       BEGIN MINSMAX:=X;SPALTE:=J END;                      
  END;                                                      
                                                            
 IF MINSMAX=MAXZMIN THEN                                    
  WRITELN("SATTELPUNKT:",MINSMAX,"=A[",ZEILE,",",SPALTE,"]")
 ELSE                                                       
  WRITELN("KEIN SATTELPUNKT");                              
END.