В массиве поменять местами максимальный элемент с последним отрицательным элементом

Const n=25;
var i,index,undex,max,x:integer;
    a:array[1..n] of integer;
begin
     writeln('Массив:');
     for i:=1 to n do readln(a[i]);
     for i:=1 to n do
     write(' a[',i,']=',a[i]);
     writeln('');
     max:=a[1];
     for i:=1 to n do
     if a[i]>max then
     begin
     max:=a[i];
     undex:=i;
     end;
     writeln('Max=',max);
     for i:=1 to n do
     begin
     if a[i]<0 then index:=i;
     end;
     writeln('Последнее отрицательное число:',a[index]);
     x:=a[undex];
     a[undex]:=a[index];
     a[index]:=x;
     for i:=1 to n do
     write(' a[',i,']=',a[i]);
end.

const
  n = 25;
var
  Arr: Array[1..n] of Integer;
  Tmp, Max, Neg: Integer;
  i: Byte;
begin
  Randomize;
  Max:=1;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(30)-15;
    if Arr[i] > Arr[Max] then
      Max:=i;
    if Arr[i] < 0 then
      Neg:=i;
    write(Arr[i], ' ');
  end;
  writeln;
  writeln('Максимальный: ', Arr[Max], '; Индекс: ', Max, ';');
  writeln('Последний отрицательный: ', Arr[Neg], '; Индекс: ', Neg, ';');
  Tmp:=Arr[Max];
  Arr[Max]:=Arr[Neg];
  Arr[Neg]:=Tmp;
  writeln('Массив: ');
  for i:=1 to n do
    write(Arr[i], ' ');
end.