1.Поэлементный ввод с клавиатуры a[1.. m,1..n].
for i:=1 to m do
for j:=1 to n do readln(a[i,j]);
2.Генерация случайных чисел.
randomaze;
for i:=1 to m do
for j:=1 to n do a[i,j]:=random(10);
3.Задание по формуле.
for i:=1 to m do
for j:=1 to n do a[i,j]:= i+j;