Программа в котором двумерный массив (10 строки 10 колонки) заполняют элементы со значениями 1, 2, 3, .... по горизонтали

const
     n=10; // задаем кол-во строк и столбцов
type
     ar=array[1..n,1..n] of integer; // двумерный массив 
var
     a  :ar;
     i,j:integer; // счетчики
begin
randomize;
for i:=1 to n do // начиная с первого столбца
     begin
          for j:=1 to n do // заполняем строки по горизонтали:D
          begin
               a[i,j]:=random(10); // случайные числа от 0 до 9
               write(a[i,j]:3); // вывод
          end;
     writeln; // переход на новую строку , то есть i+1
     end;    
end.

const
     n=10; // задаем кол-во строк и столбцов
type
     ar=array[1..n,1..n] of integer; // двумерный массив 
var
     a  :ar;
     i,j:integer; // счетчики
begin
randomize;
writeln('Вводите элементы массива : '); // ввод элементов с клавиатуры
for i:=1 to n do // начиная с первого столбца
     begin
          for j:=1 to n do // заполняем строки по горизонтали:D
               read(a[i,j]); // вводим любые числа)
     writeln; // переход на новую строку , тоесть i+1
     end;   
for i:=1 to n do 
     begin
          for j:=1 to n do 
               write(a[i,j]:3); 
     writeln;
     end;    
end.