Описать действия в данном коде с массивами

Program exe2;
Const n = 10;
var
a: array [1..n] of integer;
i, max, min: integer;
begin
 randomize;
 writeln('Исходный массив: ');
 for i := 1 to n do
begin
 a[i] := -n div 2 + random(n);
write(a[i]:4);
end;
writeln;
max := a[1];
min := a[1];
for i := 2 to n do
begin
if min > a[i] then 
min := a[i];
if max < a[i] then 
max := a[i];
end;
writeln('Минимальный элемент: ', min);
writeln('Максимальный элемент: ', max);
writeln('Преобразованный массив: ');
 for i := 1 to n do
begin
if a[i] > 0 then 
a[i] := max
else 
if a[i] < 0 then 
 a[i] := min;
 write(a[i]:4);
end;
end.

//находим минимальный и максимальный элементы
max := a[1];
min := a[1];
for i := 2 to n do
begin
if min > a[i] then
min := a[i];
if max < a[i] then
max := a[i];
end;
writeln('Минимальный элемент: ', min);
writeln('Максимальный элемент: ', max);
//заменяем положительные на максимальный, отрицательные на минимальный
writeln('Преобразованный массив: ');
 for i := 1 to n do
begin
if a[i] > 0 then
a[i] := max
else
if a[i] < 0 then
 a[i] := min;
 write(a[i]:4);
end;