##
var text := ReadAllText('_a.pas',Encoding.UTF8);
Print(text);