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

Заменить минимальный по модулю положительный элемент нулём. Заменить элементы с К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 nlt;=10;
min:=32767;
z:=0;
for i:=1 to n do
begin
writeln (введите,i,элемент);
readln (a[i]);
if a[i]gt;0 then begin
if mingt;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 nlt;=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 ilt;=10 then d[i]:=i else d[i]:=a[i]-i;
writeln (d[i], );
end;
readln;
end.