С клавиатуры вводится натуральное число n-количество элементов последовательности, а хатем последовательность из n целых чисел. Поставьте максимальный элемент на последнее место, не изменяя порядка следования остальных элементов — Pascal(Паскаль)

Например:
8
23 27 38 12 47 29 30 44
23 27 38 12 29 30 44 47

Uses Crt;
Var
i,n,t,max,pos:Integer;
x: Array [1..100] of Integer;
begin
  writeln('Введите размерность массива');
  Readln(n);
  For i:=1 to n do
  begin
    writeln('Введите ',i,' элемент массива');
    Readln(x[i]);
  end;
  writeln('Введеный массив');
  for i:=1 to n do
  write(x[i]:4);
  writeln;
  max:=x[1];pos:=1;
  For i:=2 to n do
  If x[i]>max then begin
                      max:=x[i];
                      pos:=i;
                   end;
  for i:=pos to n-1 do
  x[i]:=x[i+1];
  x[n]:=max;
  writeln('Переформированный массив');
  for i:=1 to n do
  write(x[i]:4);
End.