Подскажите как решить.Одновремный...

Подскажите как решить.Одновремный массв, состоящий из n положительных и отрицательных элементов, заполняется случайным образом. Составить программу, реализующую поиск первого отрицательного элемента и меняющую его с местами с последним элементом массива. Вывести результат на экран.

 

const z = 10;
var
  a: array[1..z] of integer;
  i, n, tmp: integer;
begin
  for i := 1 to z do begin
    a := random(6) - 4;
    write(a, ' ');
  end;
  writeln;
  for i := 1 to z do begin
    if(a < 0) and (n = 0) then begin
      tmp := a[z];
      a[z] := a;
      a := tmp;
      inc(n);
    end;
    write(a, ' ');
  end;
end.