const n=20;
var x,y : array[1..n] of integer; 
  i, j, max, imax, min, imin : integer;
begin
Randomize; 
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(101)-50; 
  write(x[i],' ');     
 end;
 writeln;
j:=0;
for i:=1 to n do
 if x[i]>0 then begin j:=j+1; y[j]:=x[i]; end;
writeln('Новый массив:');
for i:=1 to j do write(y[i],' ');     
writeln;
max:=y[1]; imax:=1; min:=y[1]; imin:=1;
for i:=2 to j do
 begin
 if y[i] > max then begin max:=y[i]; imax:=i; end;
 if y[i] < min then begin min:=y[i]; imin:=i; end;
 end;
writeln('max=',max,'  min=',min);
y[imax]:=min; y[imin]:=max;
writeln('Измененный массив:');
for i:=1 to j do write(y[i],' ');     
 writeln;
end.

Пример:
Исходный массив:
44 -3 -30 40 35 -6 -49 18 -45 12 8 5 16 33 -48 -11 -1 7 30 37 
Новый массив:
44 40 35 18 12 8 5 16 33 7 30 37 
max=44  min=5
Измененный массив:
5 40 35 18 12 8 44 16 33 7 30 37