const
n = 7;
var
a: array [1 .. n, 1 .. n] of integer;
i, j, temp: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(40);
write(' ', a[i, j]:3);
end;
writeln();
end;
writeln('--------');
temp := a[2, 2];
a[2, 2] := a[4, 2];
a[4, 2] := temp;
writeln('--------');
for i := 1 to n do
begin
for j := 1 to n do
begin
write(' ', a[i, j]:3);
end;
writeln();
end;
end.