program SearchMax;
var
    n, k, j, max: integer;
    matrix: array of array of integer;
begin
    write('n = ');
    readln(n);
    setlength(matrix, n, n);

    writeln('Before update: ');
    for k := 0 to n - 1 do begin
        for j := 0 to n - 1 do begin
            matrix[k, j] := -3 + random(11);
            write(matrix[k, j] : 4, ' ');
        end;

        writeln;
    end;

    writeln('After update: ');
    for k := 0 to n - 1 do begin
        max := -MaxInt;

        for j := 0 to n - 1 do begin
            if matrix[k, j] > max then begin
                max := matrix[k, j];
            end;
        end;

        for j := 0 to n - 1 do begin
            if (matrix[k, j] = max) and (k > 0) and (k < n - 2) then begin
                matrix[k, j] := 0;
            end;

            write(matrix[k, j] : 4, ' ');
        end;

        writeln;
    end;
end.