procedure rikiuok(var n:integer; var arr:mas);
var a,b,max:integer;
    temp:real;

begin
    max:=1;
    for a:=1 to n do
    begin
        for b:=1 to n do
        begin
            if arr[a][b]>arr[a][max] then
            begin
                for a:=1 to n do
                begin
                    temp:=arr[a][max];
                    arr[a][max]:=arr[a][b];
                    arr[a][b]:=temp;
                end;
            end;
        end;
    end;
end;