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

program zz1;

var mas:array[1 ... 10] of integer; / /заводим массив

i, k1, k2, max:integer; //задаем переменные

begin

for 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 do

if 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.