Видоизмените программу сортировки массива выбором так, чтобы в ней использовалась процедура выбора наибольшего элемента массива

program z6;
var A:array[1..10] of integer;
i, k, max: integer;

BEGIN //Случайным образом присвоим значения элементам массива и выведем его на экран
for i:=1 to 10 do A[i]:=random(50);
write ('Массив: ');
for i:=1 to 10 do write(A[i], ' ');

//Здесь будем сравнивать значения из массива и найдем максимальное
max:=A[1];
for i:=2 to 10 do
if A[i]>max then max:=A[i];
writeln;
writeln ('Наибольшее значение в массиве:', max);
END