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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.