Дан массив чисел, найти максимальный элемент и поставить его первым, а остальные элементы сдвинулись вправо — Pascal(Паскаль)

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.