Задание на массив , матрица 10*10

[Aleksandr litvinch]

Нужно сгенерировать и вывести на экран матрицу 10*10 массивом
так что б :

1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
. . . . . . . . . . . . . . . . . .. . . .
91 92 93 94 95 96 97 98 99 100

как сделать сам маассив и вывести его в виде матрицы мне ясно , но как сгенерировать числа по порядку


program dop1 ;
uses crt ;
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
write('Enter [',i,',',j,']=');
readln (A[i,j]);
end;




for i:=1 to 10 do
begin
for j:=1 to 10 do
write(A[i,j]:5);
writeln;
end;
end.





вот мой код но тут элементы нужно с клавиатуры вписывать

[BDA]

for i:=1 to 10 do
  for j:=1 to 10 do
    A[i, j] := 10 * (i - 1) + j;

UPD
Пожалуйста

[Aleksandr litvinch]

Сообщение от BDA

for i:=1 to 10 do
  for j:=1 to 10 do
    A[i, j] := 10 * (i - 1) + j;

Благодарю За помощь