И чего не выходит?
Просто вывести, что бы посмотреть:
Код:
var
Labirinth : Array [0..9,0..9] Of Integer; // 10x10
...
var
I ,J : Integer;
begin
For I := 0 To 9 Do
For J := 0 To 9 Do
StringGrid1.Cells[I,J] := Labirinth[I,J];
end;
Но это просто посмотреть. С выводим что бы было красиво - надо выводить (рисовать) либо на TImage, либо на TPaintBox...