>>716
とても例どうりに動くとは思えんが、本人がそう言っている
のならそれでいいや。

>>717
確かFreePascalはTurboPascalの構文が使えるんじゃな
かったでしたっけ?それならshrで行けます。下記参考。ち
なみに左シフトはshl。

var
　　a, b : byte;

begin
　　a := 8;
　　b := a shr 1;　　(* シフトしたいビット数 *)
　　writeln(a, ' ', b);
end.