Niels AD

``` pascal {$assertions on} procedure TestChar(var c: Char); begin c := 'u'; end; procedure TestStr(s: String); begin s[2] := 'u'; end; var s1, s2: String; begin s1 := 'wat'; s2...

Import once

2

Import files once as proposed by @ysor in issue #396.