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

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]gt;max then max:=A[i];
writeln;
writeln (Величайшее значение в массиве:, max);
END