задание с массивом

[Ляйсан)]

Задан массив C. Написать программу на делфи, которая меняет местами первый элемент и последний их отрицательных элементов массива C.

[Алексей_2012]

то есть если ввели 5 6 7 8 -9 -10 -8 -3 0 1 23, то должно получится
-3 6 7 8 -9 -10 -8 5 0 1 23? а массив какой? стандартный или динамический? как массив заполняется? из случайных чисел или с клавиатуры?

[Stilet]

var a:array[1..10] of integer;i,imin:integer;
begin
 for i:=1 to 10 do begin
  a[i]:=20-random(40);
  if a[i]<0 then imin:=i;
  write(a[i]:5);
 end;
 i:=a[1];a[1]:=a[imin];a[imin]:=1;
 for i:=1 to 10 do begin
  write(a[i]:5);
 end;
 readln;
end.