program p851;
procedure numabsmax(var A:tmyarray;
Var i,j,m,: Integer);
var k:integer;
begin
j:=1; for k:=2 to m do if abs([i,k])>abs([i,j]) then j:=k; end; for i:=1 to n do begin a[i,j]:=-a[i,j]; end.