В двумерном целочисленном массиве положительные элементы заменить их квадратами

Const

N = 3;

Var

A:Array[1 ... N, 1 ... N] of integer;

i, j:integer;

Begin

Randomize;

WriteLn ('Исходный массив:') ;

For i: = 1 to N do

Begin

For j: = 1 to N do

Begin

A[i, j]:=random (21) - 10;

Write (A[i, j]:3,' ')

End;

WriteLn

End;

WriteLn;

WriteLn ('Переработанный массив:') ;

For i: = 1 to N do

Begin

For j: = 1 to N do

Begin

if A[i, j]>0 then A[i, j]:=A[i, j]*A[i, j];

Write (A[i, j]:3,' ') ;

End;

WriteLn

End;

End.