uses crt;
const
n = 5;
var
i, j, indmax, max: integer;
x: array [1 .. n, 1 .. n] of integer;
begin
clrscr;
Randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
x[i, j] := Random(100);
write(x[i, j]:4, ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
indmax := 1;
max := x[i, 1];
for j := 2 to n do
if x[i, j] > max then
begin
max := x[i, j];
indmax := j;
end;
x[i, indmax] := x[i, n];
x[i, n] := max;
end;
for i := 1 to n do
begin
for j := 1 to n do
write(x[i, j]:4, ' ');
writeln;
end;
readln;
end.