Why my program have TLE#1?

Here is my code:
{$I-,Q-,R-,S-}
VAR n,i,j       :integer;
    s1,s2       :string[13];
    ch          :char;

BEGIN
  readln(n);
  for i:=1 to n do begin
    s2:=''; s1:=''; j:=0;
    while (not eoln)and(j<=12) do begin
      read(ch);
      s2:=s2+ch; s1:=s1+ch;
      inc(j);
      if ((s1='puton')or(s1='in')or(s1='input')or(s1='out')or(s1='output')or(s1='one'))or
         ((s2='puton')or(s2='in')or(s2='input')or(s2='out')or(s2='output')or(s2='one'))then begin
            s2:=s1; j:=ord(s2[0]); s1:='';
         end;
    end;
    if ((s1='puton')or(s1='in')or(s1='input')or(s1='out')or(s1='output')or(s1='one')or(s1=''))or
       ((s2='puton')or(s2='in')or(s2='input')or(s2='out')or(s2='output')or(s2='one')or(s2=''))then writeln('YES')
                else writeln('NO');
    readln;
  end;
END.


Please HELP ME.