Помогите срочно!!!! Паскаль! Пожалуйста!!!!

const a:array[1..3,1..3]of real=
((0.1,-3.2,4.5),(-0.2,-1.2,-0.3),(0.4,-3.1,0.2));
var i,j:integer; p,r,y:real;
begin
p:=1; r:=1;
for i:=1 to 3 do for j:=1 to 3 do
begin
if (i>j)and(a[ i,j]>0) then p:=p*a[ i,j];
if (abs(a[ i,j])<0.5)and(a[ i,j]< r) then r:=a[ i,j];
end;
if r=1 then r:=0; y:=abs(p*p-r*r-1)/exp(1);
writeln(y); readln
end.