Создать матрицу 3х4, заполнить ее числами 0 и 1 так, чтобы в одной строке была ровно олна еденица, и вывести на экран

// PascalABC.NET 3.2, сборка 1491 от 02.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
  MatrGen(3,4,(i,j)->i=j?1:0).Println(1)
end.

Результат
1000
0100
0010