language: Pascal (fpc) (fpc 2.2.0)
date: 103 days 19 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
begin
if r-y+1>=k then
   begin
     ac:=ab;
     for i:=y+1 to y+k-1 do
        begin
         ac:=ac+ar[x,i];
        end;
     if ac=bb then aaa:=true;
   end;
 
if s-x+1>=k then
   begin
     ac:=ab;
     for i:=x+1 to x+k-1 do
        begin
         ac:=ac+ar[i,y];
        end;
     if bb=ac then aaa:=true;
   end;
 
if y>=k then
   begin
     ac:=ab;
     for i:=y-1 downto y-k+1 do
       begin
        ac:=ac+ar[x,i]
       end;
     if bb=ac then aaa:=true;
   end;
 
if x>=k then
   begin
      ac:=ab;
      for i:=x-1 downto x-k+1 do
         begin
           ac:=ac+ar[i,y];
         end;
      if bb=ac then aaa:=true;
   end;
if (r-y+1>=k) and (s-x+1>=k) then
  begin
    ac:=bb;
    for i:=1 to k-1 do
       begin
         ac:=ac+ar[x+i,y+i];
       end; 
    if ac=bb then aaa:=true;
  end;
 
if (y>=k) and (x>=k) then
  begin
   ac:=bb;
   for i:=1 to k-1 do
    begin
      ac:=ac+ar[x-i,y-i];
    end;
   if ac=bb then aaa:=true;
  end;
if (s-x+1>=k) and (y>=k) then
 begin                 
   ac:=bb;
    for i:=1 to k-1 do
     begin
      ac:=ac+ar[x+i,y-i];
     end;
    if ac=bb then aaa:=true;
 end;
 
if (x>=k) and (r-y+1>=k) then
   begin    
    ac:=bb;
     for i:=1 to k-1 do
       begin
        ac:=ac+ar[x-i,y+1];
       end;
     if ac=bb then aaa:=true;
   end;
 
end;
begin
readln(s,r);
for i:=1 to s do
  begin
    for j:=1 to r do
       begin
         read(ar[i,j]);
         if j<>r then read(al);
       end;
    readln;
  end;
readln(z);
for i:=1 to z do
   begin
      readln(bb);
      k:=length(bb);
      ab:=bb[1];
      aaa:=false;
      for j:=1 to s do
        begin
          for k:=1 to r do
             begin
               if ab=ar[i,j] then
                 begin
                  f(i,j,ab);
                 end;
             end;
        end;
       if aaa=true then
            writeln(bb,' ','Y') else
       writeln(bb,' ','T');
   end;
 readln;
end.