if CharMax=10 (not 10^6)
Test1
1
aaaaa
aaaa#

answer
aaaaa
aaaa

Test2
aaaaa
aaaaa

answer:#

in pascal eoln =chr(10) (not chr(10)chr(13))