Заменить минимальный по модулю положительный элемент нулем

Заменить минимальный по модулю положительный элемент нулём. Заменить элементы с К1 по K3 на обратный. Из элементоа массива A сформировать массив D того же размера по правилу: первые 10 элеметов I, остальные Di=Ai-i

Для меня проблематично сделать всё это в одной задаче.

По отдельности каждое предложение есть.

Совместить не могу.

1) var a:array [1 ... 10] of integer; i, min, n, z:integer;

begin

repeat

writeln ('Введите размер массива') ;

readln (n) ;

until n<=10;

min:=32767;

z:=0;

for i:=1 to n do

begin

writeln ('введите', i,'элемент') ;

readln (a[i]) ;

if a[i]>0 then begin

if min>a[i] then begin min:=a[i]; z:=i;

end;

end;

end;

a[z]:=0;

for i:=1 to n do

begin

writeln ('элемент массива n ', i,' = ', a[i]) ;

end;

readln;

end.

2) var a:array [1 ... 10] of integer; i, k, n:integer;

begin

repeat

writeln ('Введите размер массива n') ;

readln (n) ;

until n<=10;

k:=3;

for i:=1 to n do

begin

writeln ('введите', i,'') ;

readln (a[i]) ;

end;

for i:=1 to k do

begin

a[i]:=a[i]*-1;

end;

for i:=1 to n do

begin

writeln ('элемент массива n ', i,' = ', a[i]) ;

end;

readln;

end.

3) var a:array [1 ... 20] of integer;

d:array [1 ... 20] of integer;

i, n:integer;

begin

writeln ('Введите размер массива n') ;

readln (n) ;

for i:=1 to n do

begin

writeln ('введите', i,'') ;

readln (a[i]) ;

end;

writeln ('элементы нового массива') ;

for i:=1 to n do

begin

if i<=10 then d[i]:=i else d[i]:=a[i]-i;

writeln (d[i],' ') ;

end;

readln;

end.