Строго на языке паскаль пожалуйста!Дана действительная матрица размера n на m.

Const
  LIM=2; W=8; D=2; n=5; m=5; n строк, m столбцов
var
  a: array [1..n,1..m] of real;
  p: real;
  h: boolean;
  i, j: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=LIM*Random;
      Write(a[i,j]:W:D);
    end; WriteLn;
  end;
  WriteLn('B=');
  for i:=1 to n do begin
    p:=1; h:=false;
    for j:=1 to m do
      if (абс(a[i,j])gt;=1) and (абс(a[i,j])lt;=1.5) then begin
        p:=p*sqr(a[i,j]); h:=true;
      end;
    if h then Write(p:W:D) else Write('?':W);
  end; WriteLn;
  Write('Нажмите ENTER...'); ReadLn;
end.