работа со строками в двумерном массиве

[GoldSieg]

Здравствуйте.
необходимо решить задачу.
Дана действительная матрица размера M×N. Сформировать одномерный массив из произведения квадратов тех элементов каждой строки, модули которых принадлежат отрезку [x, y].

вот то что у мя получилось.... прога робит неверно. почему?)

Program z_10_l2;
var x:array[1..5,1..10]of double;
    y:array[1..5]of double;
    t,b,a,z,m:double;
    j,i:integer;
Begin 
read(a,b);
  for i:=1 to 5 do
   begin 
    for j:=1 to 5 do
     begin 
      x[i,j]:=random(20)-10;
      write('  ', x[i,j]:4);
     end; 
     writeln;
   end;writeln;writeln;writeln;
   z:=1;
    for i:=1 to 5 do
   begin z:=1;
    for j:=1 to 5 do
     begin 
      if abs(x[i,j])>=a then
       if abs(x[i,j])<=b  then  t:=x[i,j] else t:=1; z:=1;
       m:=sqr(t)*z;
       z:=m;
       end;
       y[i]:=m;
       write(' ',y[i]); 
   end;
   
end.

[ViktorR]

А если как-то так ...?

   for i:=1 to 5 do begin
       y[i] := 1;
       for j:=1 to 5 do begin 
          if ((abs(x[i,j])>=a) and (abs(x[i,j])<=b))  then
            y[i] := y[i] * sqr(x[i,j]);
    end;