Дан массив чисел, найти максимальный элемент и поставить его первым

uses crt;
var i,m:byte;
     a,b:array[1..250] of integer;
     max:integer;
begin
clrscr;
write('Введите количество элементов массиве: ');
read(m);
writeln('Введите элементы массива');
for i:=1 to m do
begin
writeln('A[',i,']=');
read(a[i]);
end;
writeln('Массив имеет вид:');
for i:=1 to m do
write(a[i]:0:3);
max := a[1];
for i:=1 to m do
if a[i] > m then m:=a[i];
b[1]:=max;
for i:=1 to m do
if a[i]<> max then b[i+1]:=a[i];
writeln('Наш массив имеет вид после всех операций над ним');
for i:=1 to m do
write(b[i]:0:3);
repeat until keypressed;
end.

uses crt;
var i,m:byte;
    a:array[1..250] of integer;
    max,imax:integer;
begin
clrscr;
write('Введите количество элементов массиве: ');
readln(m);
writeln('Введите элементы массива');
for i:=1 to m do
  begin
   write('A[',i,']=');
   readln(a[i]);
  end;
writeln('Массив имеет вид:');
for i:=1 to m do
write(a[i],' ');
writeln;
max := a[1];imax:=1;
for i:=1 to m do
if a[i] > max then
  begin
   max:=a[i];{находим макс}
   imax:=i;{его номер}
  end;
for i:=imax downto 2 do{от макс к началу}
a[i]:=a[i-1];{сдвигаем на 1 позицию вправо}
a[1]:=max;{на первое место ставим макс}
writeln('Наш массив имеет вид после всех операций над ним');
for i:=1 to m do
write(a[i],' ');
readln
end.

program tt;
uses crt;
var
  m:array[1..100] of integer;
  n,i,k:byte;
  max:integer;
begin
  ClrScr;
  write('Введите размер массива:');
  readln(n);
  writeln('Введите элементы массива: ');
  for i:=1 to n do
    read(m[i]);
  max:=m[1];
  for i:=2 to n do
    if m[i]>max then begin
      max:=m[i];
      k:=i;
    end;
  writeln('Максимальный элемент: ',max,' его номер: ',k);
  readln;
end.