if Arr [i ] > Arr [i + 1] then
Допишите код перестановки этих элементов

for i:=1 to 4 do
begin
k:=i; _____________1
for j:=i+1 to 5 do
if ____2______________ then
begin
__3______________; k:=j;
end;