type c4 = array[1..4] of char;
 
function AsLongint(var Buffer): Longint;
var l: Longint absolute Buffer; 
begin 
  AsLongint := l;
end; 
 
function AsCharArray(var Buffer): c4;
var r: c4 absolute Buffer;
begin
  AsCharArray := r;
end;
 
var c: c4;
  wynik: longint;
begin
  c := 'test';
 
  wynik := AsLongint(c);
  writeln('Cztery bajty jako longint: ', wynik);
 
  c := AsCharArray(wynik);
  writeln('Z powrotem na chary: ', c);
 
  Inc(wynik, $A shl 8);
  writeln('Zamieniam "e" na "o": ', AsCharArray(wynik));
 
end.

dHlwZSBjNCA9IGFycmF5WzEuLjRdIG9mIGNoYXI7CiAKZnVuY3Rpb24gQXNMb25naW50KHZhciBCdWZmZXIpOiBMb25naW50Owp2YXIgbDogTG9uZ2ludCBhYnNvbHV0ZSBCdWZmZXI7IApiZWdpbiAKICBBc0xvbmdpbnQgOj0gbDsKZW5kOyAKIApmdW5jdGlvbiBBc0NoYXJBcnJheSh2YXIgQnVmZmVyKTogYzQ7CnZhciByOiBjNCBhYnNvbHV0ZSBCdWZmZXI7CmJlZ2luCiAgQXNDaGFyQXJyYXkgOj0gcjsKZW5kOwogCnZhciBjOiBjNDsKICB3eW5pazogbG9uZ2ludDsKYmVnaW4KICBjIDo9ICd0ZXN0JzsKIAogIHd5bmlrIDo9IEFzTG9uZ2ludChjKTsKICB3cml0ZWxuKCdDenRlcnkgYmFqdHkgamFrbyBsb25naW50OiAnLCB3eW5payk7CiAKICBjIDo9IEFzQ2hhckFycmF5KHd5bmlrKTsKICB3cml0ZWxuKCdaIHBvd3JvdGVtIG5hIGNoYXJ5OiAnLCBjKTsKIAogIEluYyh3eW5paywgJEEgc2hsIDgpOwogIHdyaXRlbG4oJ1phbWllbmlhbSAiZSIgbmEgIm8iOiAnLCBBc0NoYXJBcnJheSh3eW5paykpOwogCmVuZC4=