Составить программку которая поставит наибольший элемент массива на 1-ое место(массив из

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