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

Var

i, max, m:integer;

a:array[1 ... 10]of integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to 10 do

begin

a[i]:=random (50) ;

write (a[i],' ') ;

if a[i]>max then

begin

max:=a[i];

m:=i;

end;

end;

writeln;

writeln ('Измененный массив:') ;

i:=a[1];

a[1]:=a[m];

a[m]:=i;

for i:=1 to 10 do write (a[i],' ') ;

end.