паскаль, помогите найти ошибку! ! в конце выводит одно значение, а не весь массив

Question

program ABC; 
const N=5; 
var a:array[1..N] of integer; 
i,max,min: byte; 
begin 
cls; 
writeln('ââåäèòå ÷èñëî ýëåìåíòîâ â ìàññèâå a'); 
writeln('ââîäèì ýëåìåíòû ìàññèâà a:'); 
for i:=1 to n do 
begin 
write('a[',i,']='); 
readln(a); 
end; 
writeln('èñõîäíûé ìàññèâ a:'); 
min:=1; max:=1; 
for i:= 1 to n do 
begin 
if abs(a)< a[min] 
then 
min:=i 
else 
if abs(a)> max 
then 
max:=i; 
end; 
Begin 
for i:=1 to n do 
if max-min>10 then 
a:=a+max 
else 
a:=a-max; 
end; 
 writeln(a); 
end.

вот само задание: 
Ввести одномерный массив, вывести его. Найти максимальный и минимальный по модулю элементы массива. Если модуль максимального элемента превышает значение модуля минимального более чем на 10, то увеличить положительные элементы всего массива на значение модуля максимума, иначе уменьшить их на это значение

Луназада Абдразакова · Accepted Answer

вы указали в конце как раз вывод одного из значений 
чтобы получилось как вам надо (массив )попробуйте так 
 
program ABC; 
cоnst N=5; 
var a:array[1..N] of integer; 
i,max,min: byte; 
begin 
cls; 
writeln('ââåäèòå ÷èñëî ýëåìåíòîâ â ìàññèâå a'); 
writeln('ââîäèì ýëåìåíòû ìàññèâà a:'); 
for i:=1 to n do 
begin 
write('a[',i,']='); 
readln(a); 
end; 
writeln('èñõîäíûé ìàññèâ a:'); 
min:=1; max:=1; 
for i:= 1 to n do 
begin 
if abs(a)< a[min] 
then 
min:=i 
else 
if abs(a)> max 
then 
max:=i; 
end; 
Begin 
for i:=1 to n do 
if max-min>10 then 
a:=a+max 
else 
a:=a-max; 
end; 
 for i:=1 to n do 
 write('a[',i,']=',a, ' '); 
end 
 
как работает программа не проверял но такой вариант поидее рабочий