code 34284;
procedure HOMSOLSVD(U, VAL, V, M, N);
value M, N; integer M, N; array U, VAL, V;
begin integer I, J;
    real X;

    for I:= N step - 1 until 2 do 
    for J:= I - 1 step - 1 until 1 do 
    if VAL[I] > VAL[J] then 
    begin X:= VAL[I]; VAL[I]:= VAL[J]; VAL[J]:= X;
        ICHCOL(1, M, I, J, U); ICHCOL(1, N, I, J, V)
    end 
end HOMSOLSVD;
        eop