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

const n=15;
var a:array[1..n] of integer;
    i,iot,imx,x:integer;
begin
randomize;
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);;
  write(a[i]:4);
 end;
writeln;
iot:=0;
imx:=1;
for i:=1 to n do
 begin
  if(a[i]<0)and(iot=0) then iot:=i;
  if a[i]>=a[imx] then imx:=i;
 end;
writeln('Макимальный элемент=',a[imx],' его последний индекс=',imx);
if iot=0 then writeln('Отрицательных элементов в массиве нет')
else
 begin
  writeln('Первый отрицательный элемент=',a[iot],' его индекс=',iot);
  x:=a[imx];
  a[imx]:=a[iot];
  a[iot]:=x;
 end;
writeln('Обмен этих элементов');
for i:=1 to n do
write(a[i]:4);
end.

const
  n = 15;
 
var
  a: array[1..n] of integer;
  i, j, imax, otr, x: integer;
  f: boolean;
 
begin
  Randomize;
  imax := 1;
  otr := 0;
  f := true;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    if a[i] >= a[imax] then
      imax := i;
    if (a[i] < 0) and f then
    begin
      otr := i;
      f := false;
    end;    
    Write(a[i]:4);
  end;
  Writeln;
  writeln('Max: ', a[imax], ' в позиции: ', imax);
  if otr <> 0 then
    writeln('Первый отрицательный: ', a[otr], ' в позиции: ', otr)
  else
    writeln('Нет отрицательных.');
  x := a[imax];
  a[imax] := a[otr];
  a[otr] := x;
  for i := 1 to n do
    Write(a[i]:4);
end.