Поменять местами последний и максимальный элементы вектора (после ввода элементов вектора ничего не происходит)

 const n_v=10;
var
  a: array[1..n_v] of integer;
 n, i, im, z: integer;
 
begin
write('Введите размерность вектора: ');
  readln(n);
  WriteLn('Введите элементы вектора');
  for i := 1 to n do
  begin
    write('A[', i, ']= ');
    ReadLn(A[i]);
  end;
  im := 1;
  for i := 2 to n do
    if a[im] < a[i] then
      im := i;
  z := a[im];
  a[im] := a[n];
  a[n] := z;
  for i := 1 to n do
    Write(a[i]:2, '  ');
  Writeln;
  Readln;
end.

program Project1;
uses
  CRT;
const
  maxelem = 10;
var
  a: array[1..maxelem] of integer;
  n, i, im, z: integer;
 
begin
  write('Введите размерность вектора: ');
  readln(n);
  WriteLn('Введите элементы вектора');
  for i := 1 to n do
    begin
      write('A[', i, ']= ');
      ReadLn(A[i]);
    end;
  im:= 1;
  for i := 2 to n do
    if a[im] < a[i] then
      im:= i;
  writeln('Исходный массив:');
  for i:= 1 to n do
    begin
      if i = im then
        textcolor(12)
      else
        if i = n then
          textcolor(10)
        else
          textcolor(7);
      Write(a[i]:2, ' ');
    end;
  Writeln;
  z:= a[im];
  a[im]:= a[n];
  a[n]:= z;
  textcolor(7);
  writeln('Измененный массив:');
  for i:= 1 to n do
    begin
      if i = im then
        textcolor(10)
      else
        if i = n then
          textcolor(12)
        else
          textcolor(7);
      Write(a[i]:2, ' ');
    end;
  Writeln;
 Readln;
end.