function MaxI_MinI: udint; //Максимальное или минимальное число при помощи пузырьковой сортировки от меньшего к большему
    
    var_input //объявление входных переменных
        X1, X2, X3, X4, X5, X6, X7, X8, X9, X10: udint; //Добавление необходимого кол-ва входных переменных и определение типа данных
    end_var
    
    var //объявление локальных переменных
        i,j,n,k: udint;
        x: array [1..10] of udint; //Задается диапазон массива и тип данных массива
    end_var
//PRG

//объявление массива
x[1]:=X1;
x[2]:=X2;
x[3]:=X3;
x[4]:=X4;
x[5]:=X5;
x[6]:=X6;
x[7]:=X7;
x[8]:=X8;
x[9]:=X9;
x[10]:=X10;
// x[n]:=Xn; и т. д.

n:=10; // задается кол-во чисел для сортировки (размер массива)

for i := 1 to n-1 do
    for j := 1 to n-i do
        if x[j]>x[j+1] then
            k:=x[j];
            x[j]:=x[j+1];
            x[j+1]:=k;
         end_if;
      end_for;   
end_for;

MaxI:=x[n]; //выводится последнее (максимальное) число массива

//MinI:=x[1]; //выводится первое (минимальное) число массива

end_function