{ %norun }

{$mode delphi}

var
  &file: integer;
  &do: string;
  &in: boolean;
  &for: char;
begin
  &file:=1;
  &do:='abc';
  &in:=true;
  &for:='h'
end.