Hello. As the max oh characters is 1000 the input don't fit in a string.
 I tried this:
 i := 0;
 while not eof() do
 begin
 i := i + 1;
 read(ch[i]);
 end;

 Using this I receive an WA. How should I read the input? Thanks!