{Tekstfaili  mang.txt. real on naturaarvud m ja n (m,n<=20).Jargmised m rida
on pikkusega n ja kujutavad m*n mangulauda.Sumbol '!' naitab nupu algposi-
tsiooni ja  '?' kuhu soovitatakse nupuga liikuda, sumbol '*' kujutab ruute,kuhu
nupp liikuda ei tohi ,sumbol '-' ruute,kust saab teha sammu vasakule voi pa-
remale(v.a. tarniga ruutudele),sumbol '+' ruute,kust voib analoogiliselt teha
sammu ka ules ja alla, Nupu algpositasioon on '-' tuupi ruut.

Kui ruudule "?" liikumine on voimalik,siis valjastada uks voimalik tee,paigu-
tades ekraanil algseisu korvale
teise laua ja markides sellel tee sumbolitega #. }


uses crt;
var
   b,c,d,e,m,n:integer;
   u:char;
   s,k:string; f:text;
   a, a2:array[1..20,1..20] of char;
   i,j:integer;
   label lopp;

procedure ots;
begin
clrscr;
writeln('Valmis!');
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(a[i,j]);
write('  ');
for j:=1 to n do
write(a2[i,j]);
end;
{writeln;
for i:=1 to 10 do begin
writeln;
for j:=1 to 15 do
write(a2[i,j]);
end;}
halt;
end;

procedure vaata(x,y:integer);
var znak: char;
begin

{m:<=20; n<=20;  }

     if a[x,y]='?' then ots
else
     if a[x,y]='*' then
else begin
znak:=a[x,y];

     if (a[x,y]='-') or (a[x, y]='+') or (a[x, y]='!') then begin
                         a[x,y]:='#';
                         if(y<n)then vaata(x,y+1);
                         if(y>1)then  vaata(x,y-1);
                        end;
                             if znak='+' then begin
                          if(x<m)then vaata(x+1,y);
                          if(x>1)then vaata(x-1,y);
                        end;
     end;

{for i:=1 to 10 do
for i:=1 to 10 do
writeln(a[i,j]);}


end;


begin
 writeln('Palun failinimi:mang voi igra?');
 readln(k);
 k:=k+'.txt';
  assign(f,k);
 reset(f);
 m:=0;
 while not eof(f) do
 begin
  readln(f, s);
  m:=m+1;
 end;
 n:=length(s);
reset(f);


  for i:=1 to m do begin
readln(f,s);
  for j:=1 to n do
a[i][j]:=s[j];
write(a[i,j]);
end;
a2:=a;

{ begin
  for i:=1 to 10 do
 for j:=1 to 15 do begin
writeln(a[i,j]);
end;}


for i:=1 to m do
    begin
for j:=1 to n do

    begin
           if a[i,j]='!' then begin
                             e:=i; b:=j; end
           else
writeln(' ! -  ei ole! ');
           if a[i,j]='?' then  begin c:=i; d:=j; end
           else
writeln(' ? - ei ole! ');end;
end;

{ begin
  for i:=1 to 10 do
 for j:=1 to 15 do begin
writeln(a[i,j]);
end;}


vaata(e, b);

  for i:=1 to m do
 for j:=1 to n do begin
writeln(a[i,j]);end;
end.




m