Что-то ничего не получаеться, заполняется только правая сторона всеми однёрками, Var matrix : array[0..100,0..100] of byte; i,j,k : byte; begin for k:=1 to 7 do begin i:=0; j:=0; For i:=0 to 7 do i:=i+1; j:= j+1; matrix[i,j]:=1; begin for i:= 1 to 7 do write(matrix[i,j]:3); writeln; end; end; end.