Задан двумернный массив вевести на экран элементы больше 20

Var

a:array[1 ... 10,1 ... 10] of integer;

i, j:integer;

begin

{

здесь надо задать массив.

Как пример задания случайного массива:

for i:=1 to 10 do

for j:=1 to 10 do

begin

a[i, j]:=random (10) + 1;

end;

}

for i:=1 to 10 do

for j:=1 to 10 do

begin

if a[i, j]>20 then write (a[i, j])

end;

end.