Задача в Паскале 3/Есть решение, нужно объяснение

Привет. Помогите пожалуйста с объяснением.. . перепод будет по полной спрашивать каждую строчку.


Решение
var
n:integer;
y:array[1..200] of real;
i:integer;
z:array[1..200] of real;
max,min,zz:real;
z2:array[1..200] of real;

Begin

writeln;writeln;
writeln('Vvedite n');
readln(n);

for i:=1 to n do
begin
writeln('Vvedite y[',i,']');
readln(y);
end;

{MAX}
for i:=1 to n do
begin
If abs(y)max then max:=abs(z);
end;
writeln('MAX=',max:4:1);

{MIN}
for i:=1 to n do
begin
If abs(y)>1 then z:=y else z:=2;
writeln('z[',i,']',z:5:2);
end;
min:=abs(z[1]);
for i:=2 to n do
begin
If abs(z));
end;
writeln('MIN=',min:4:1);

{Z}
for i:=1 to n do
begin
If (0