Const
    n = 7;
    m = 5;

var
    a: array[1..n, 1..m] of integer;
    min2_j, max5_i, i, j, p: integer;
    c: char;

begin
    min2_j := 1;
    max5_i := 1;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:n);
            if(i = 2) and (a[2, min2_j] > a[i, j]) then
                min2_j := j;
            if (j = 5) and (a[max5_i, 5] < a[i, j]) then
                max5_i := i;
        end;
    end;
   
    i := a[2, min2_j];
    a[2, min2_j] := a[max5_i, 5];
    a[max5_i, 5] := i;
   
    writeln;
    p := 1;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
        begin
            write(a[i, j]:n);
            if(i = j) then
                p := p * a[i, j];
        end;
    end;
   
    a[1, 3] := p;
    writeln;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
            write(a[i, j]:n);
    end;
end.