Could you tell me what the first test is?
I have used several types of data input
(reading ALL symbols, skipping all #10#13, skipping the last #10#13) but kept getting WA test 1. The sample tests work and the Joseph's algo is correct 99.99%.:(

My AC solution skips all #10 and #13 symbols.

Still WA1..
Could you, please, take a look at the following:

 read(ch); l:=0;
 while not eof do begin
   if (ord(ch)<>13) and (ord(ch)<>10) then begin
    inc(l);
    c[l]:=ch;
   end;
  read(ch);
 end;

Is there anything incorrect in this input?