VAR
  I, J, N, M, MAXI, MAXJ, MINI, MINJ : INTEGER;
  TEMP : REAL;
  X:ARRAY [1..100, 1..100] OF REAL;

BEGIN
  MAXI := 1;
  MAXJ := 1;
  MINI := 1;
  MINJ := 1;
  WRITE ('ВВЕДИТЕ ЗНАЧЕНИЕ N: ');
  READ (N);
  WRITE ('ВВЕДИТЕ ЗНАЧЕНИЕ M: ');
  READ (M);
  FOR I := 1 TO N DO
    FOR J := 1 TO M DO
      BEGIN
        WRITE('ВВЕДИТЕ ЗНАЧЕНЕНИЕ X[',I,',',J,']: ');
        READLN( X[I,J] );
      END;
  FOR I := 1 TO N DO
    FOR J := 1 TO M DO
    BEGIN
      IF(X[I,J] > X[MAXI,MAXJ]) THEN
      BEGIN
        MAXI := I;
        MAXJ := J;
      END;
      IF(X[I,J] < X[MINI,MINJ]) THEN
      BEGIN
        MINI := I;
        MINJ := J;
      END;
    END;
  TEMP := X[MINI,MINJ];
  X[MINI,MINJ] := X[MAXI,MAXJ];
  X[MAXI,MAXJ] := TEMP;
  FOR I := 1 TO N DO
    BEGIN
      FOR J := 1 TO M DO
        WRITE(X[I,J],' ');
    WRITELN;
    END;
END.