if you write solution on Pascal,
not use Delphi-like unlimited strings(type string) for reading input data. In "judge" pascal
strings are limited. Use simple array of char.
Otherwise you get WA on test #6 (or later :-(