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

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])