Дан двумерный массив a[n,m]. определить произведение квадратов всех элементов массива. напишите полностью .

Var a:array[1..100,1..100]of integer;i,j,n,m:integer;begin  readln(n,m);  randomize;  for i:=1 to n do  for j:=1 to m do begin  A[i,j]:=random(100); Write(a[i,j],' ');  A[i,j]:=sqr(A[i,j]); Write(a[i,j],' ');  end;  Readln;end.