Ответ:

var A: array [1..10] of integer;

var j,i: integer;

begin

randomize();

writeln('Исходный массив: ');

for i:=1 to 10 do

 begin

 A[i]:=random(151)-100;

 if (A[i]>0) then j:=i;

 write(A[i],' ');

 end;

i:=A[1];

A[1]:=A[j];

A[j]:=i;

writeln(сhr(10),'Результат: ');

for i:=1 to 10 do  write(A[i],' ');

end.