Var

 used:array[1..6,0..9,0..9,0..9,0..9,0..9,0..9]of boolean;

 tar:array[1..6,0..9,0..9,0..9,0..9,0..9,0..9]of boolean;