procedure Sort;
Uses Crt;
var
a:array[1..10,1..10]of integer;
n,i,j,max,h,l,sp:integer;
begin
ClrScr;
    Repeat;
 Write('Введите размерность матрицы (n>0)and(n<=10)');       
 Readln(n);   
 Until( (n>0)and(n<=10) );   
 writeln('Для ввода вручную нажмите 1, случайными числами - любую клавишу');
readln(sp); {Выбор способа ввода}
if sp = 1 then begin   
 max:=-maxint;    
For i:= 1 to n do    
    For j:= 1 to n do           
 BEGIN  
 gotoxy(j*7,i*4);
Read(a[i,j]);
if(a[i,j]>max)then begin
max:=a[i,j];
h:=i;  l:=j;
end;
end;
end
else begin
for i := 1 to N do {Вводслучайнымичислами}
begin
for j := 1 to N do 
begin
gotoxy(i*7,j*4);
a[i,j] := -50 + random(101);
write(a[i, j]);
if(a[i,j]>max)then begin
max:=a[i,j];
h:=i;  l:=j;
end;
end;
end;
end;
writeln;
for j:=1 to n do
a[h,j]:=-a[h,j];
for i:=1 to n do
a[i,l]:=-a[i,l];
a[h,l]:=-a[h,l];
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
write(' max=', max, ' №i=', h, ' №j=', l);
writeln;
end.