procedure rikiuok(var n:integer; var arr:mas, var eilute: integer);
var a,b:integer;
    temp:real;
begin
    for a:=1 to n-1 do
    begin
        for b:=a+1 to n do
        begin
            if arr[eilute][a]>arr[eilute][b] then
            begin
                for a:=1 to n do
                begin
                    temp:=arr[eilute][a];
                    arr[eilute][a]:=arr[eilute][b];
                    arr[eilute][b]:=temp;
                end;
            end;
        end;
    end;
end;
procedure surikiuok_viska(var eil: integer; var stulp: integer; var arr:mas)
begin
    var i: integer;
    for i := 1 to eil do begin
       rikiuok(stulp, arr, i);   
    end;
end;