{ %norun }

type
  s = string[10];
Var
  fos: file of s;
  aos: array[char]of string[63];
  fosx: File of String[63]; (* become bad *)
Begin
end.