const
N = 10;
M = 15;
NP1 = N + 1;
MP1 = M + 1;
PASSAGGIO = '-';
type
IndiceRiga = 0..NP1;
IndiceColonna = 1..MP1;
Labirinto = array [IndiceRiga, IndiceColonna] of char;
procedure LeggiLabirinto (var f: text; var lab: Labirinto);
var
i : IndiceRiga;
j : IndiceColonna;
begin
reset(f);
for i := 1 to N do
begin
for j := 1 to M do
read(f, lab[i, j]);
readln(f)
end
end;
procedure StampaLabirinto (var lab: Labirinto);
var
i : IndiceRiga;
j : IndiceColonna;
begin
writeln;
writeln(' LABIRINTO');
for i := 1 to N do
begin
for j := 1 to M do
write(lab[i, j]);
writeln;
end
end;