uses crt;
var
a:array [1..10,1..10] of integer;
temp,min,max,i,j:integer;
n,m,min_i,max_i:byte;
begin
clrscr;
randomize;


writeln('vvedite kol-vo strok(n) matrici:');
readln(n);
writeln('vvedite kol-vo stolbcov(m) matrici:');
readln(m);

writeln('vvedite matricy:');
for i:= 1 to n do begin
writeln('stroka ',i);
for j:= 1 to m do
read(a[i,j]);
end;


writeln('default matrix:');
for i:= 1 to n do begin
writeln;
for j:= 1 to m do
write(a[i,j]:5);
end;
writeln;

min:=a[1,1];
max:=a[1,1];
for i:= 1 to n do
for j:= 1 to m do
begin
if a[i,j] > max then begin max:=a[i,j]; max_i:=i; end;
if a[i,j] < min then begin min:=a[i,j]; min_i:=i; end;
end;

for j:= 1 to m do
begin
temp:=a[min_i,j];
a[min_i,j]:=a[max_i,j];
a[max_i,j]:=temp;
writeln('lol');
end;

writeln('obrabotana9 matrix:');
for i:= 1 to n do begin
writeln;
for j:= 1 to m do
write(a[i,j]:5);
end;
writeln;

end.