Составить программу которая поставит максимальный элемент массива на первое место(массив из 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.