code 31062;
 real procedure INFNRMROW(L, U, I, K, A); value L, U, I;
 integer L, U, I, K; array A;
 begin real R, MAX;
    MAX:= 0; K:= L;
    for L:= L step 1 until U do 
    begin R:= ABS(A[I,L]); if R > MAX then 
        begin MAX:= R; K:= L end 
    end;
    INFNRMROW:= MAX
end INFNRMROW;
        eop