Составить программу которая поставит максимальный элемент массива на первое место(массив из 10 целых случайных чисел)

program zz1;var mas:array[1..10] of integer; //заводим массивi,k1,k2,max:integer;//задаем переменныеbeginfor i:=1 to 10 do //записываем в массив десять случайных чиселmas[i]:=random(21);for i:=1 to 10 do write(mas[i],\' \'); //выводим исходный массивwriteln;max:=0; //задаем начальное значение максимальномуfor i:=1 to 10 doif mas[i]>max then begin max:=mas[i];k1:=i;end;k2:=mas[1];mas[1]:=max;mas[k1]:=k2; //ставим максимальный элемент на первое местоfor i:=1 to 10 do write(mas[i],\' \'); //выводим полученный массивend.