code 31064;
 real procedure INFNRMMAT(LR, UR, LC, UC, KR, A);
 value LR, UR, LC, UC; integer LR, UR, LC, UC, KR; array A;
 begin real R, MAX;
    MAX:= 0; KR:= LR;
    for LR:= LR step 1 until UR do 
    begin R:= ONENRMROW(LC, UC, LR, A); if R > MAX then 
        begin MAX:= R; KR:= LR end 
    end;
    INFNRMMAT:= MAX
end INFNRMMAT;
        eop