В заданном целочисленном массиве q[15] поменять местами последний и максимальный из отрицательных элементов — Pascal(Паскаль)

const
n=15;
var
i,max,last,v:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=50-random(100);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

for i:=n downto 1 do {находим 1-й отрицательный элемент в массиве}
if a[i] < 0 then
max:=i;
for i:=1 to n do {ищем последний и максимальный}
begin
if a[i]<0 then
last:=i;
if (a[i]<0) and (a[i]>a[max]) then
max:=i;
end;
v:=a[last];
a[last]:=a[max];
a[max]:=v;
writeln('-------');

for i:=1 to n do
  write(' ',a[i]:3);
writeln();
end.