Program Matric1;

Type

MatrA=array[1..10,1..10] of integer;

MasB=array[1..10] of integer;

Var

A:matrA;

B:MasB;

I,j,z,y,n,KS,max,buf:integer;

Begin

Writeln(' Vvedite kolichestvo stolbsov kvadratnoi matrici ');
Readln(n);

For i:=1 to n do
For j:=1 to n do
begin
Writeln(' Vvedite znachenie elementa matrici A [',i,',',j,'] =');
Readln(A[i,j]);
End;


writeln;
   Writeln('Vivod matrici');

For i:=1 to n do
Begin
writeln;
For j:=1 to n do
  begin
  Write(A[I,J],' ');
  End;
writeln;
End;

KS:=0;

For j:=1 to n do
For i:=1 to n do
If (A[i,j]<(-3))and(A[i,j]>8) then
begin
KS:=KS+1;
break;
End;

Max:=0;


For z:=1 to n do
begin
Begin
For j:=z to n do
For i:=1 to n do
If a[i,j]>max then
  begin
  max:=a[i,j];
  buf:=j;
  writeln(max,' ',buf);
  end;
end;


For j:=1 to n do
b[j]:=A[j,z];
For j:=1 to n do
A[j,z]:=A[j,buf];
For j:=1 to n do
A[j,buf]:=B[j];
end;
   writeln;
   Writeln('Vivod matrici');

For i:=1 to n do
Begin
writeln;
For j:=1 to n do
  begin
  Write(A[I,J],' ');
  End;
writeln;
End;



writeln;
writeln(KS);

readln;

End.