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

uses crt;

const
  n = 10;

var
  a: array [1 .. n] of integer;
  i, j: byte;
  max, c: integer;

begin
  randomize;
  clrscr;
  writeln('исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(19) - 9;
    write(a[i]:3);
  end;
  writeln;
  max := a[1];
  j := 1;
  for i := 2 to n do
    if a[i] > max then
    begin
      j := i;
      max := a[i];
    end;
  c := a[n];
  a[n] := a[j];
  a[j] := c;
  writeln('результат преобразований:');
  for i := 1 to n do
    write(a[i]:3);

end.