{$MODE DELPHI}
procedure KOKO(petuhi: array of const);
var
  petuh: TVarRec;
begin
  for petuh in petuhi do
    begin
      case petuh.VType of
      vtInteger: Writeln('Целый петух: ', petuh.VInteger);
      vtExtended: Writeln('Плавающий петух: ', petuh.VExtended^);
      vtString: Writeln('Петух в узких стрингах: ', petuh.VString^);
      vtAnsiString: Writeln('Петух в стрингах: ', AnsiString(petuh.VAnsiString));
      vtWideString: Writeln('Петух в широких стрингах: ', WideString(petuh.VWideString));
      vtPChar: Writeln('Сишный петух: ', petuh.VChar);
      vtPWideChar: Writeln('Широкий сишный петух: ', petuh.VWideChar);
      else
        Writeln('Петух типа ', petuh.VType);
      end;
    end;
end;
 
begin
  KOKO(['petuh', 12])
end.
 

eyRNT0RFIERFTFBISX0KcHJvY2VkdXJlIEtPS08ocGV0dWhpOiBhcnJheSBvZiBjb25zdCk7CnZhcgogIHBldHVoOiBUVmFyUmVjOwpiZWdpbgogIGZvciBwZXR1aCBpbiBwZXR1aGkgZG8KICAgIGJlZ2luCiAgICAgIGNhc2UgcGV0dWguVlR5cGUgb2YKICAgICAgdnRJbnRlZ2VyOiBXcml0ZWxuKCfQptC10LvRi9C5INC/0LXRgtGD0YU6ICcsIHBldHVoLlZJbnRlZ2VyKTsKICAgICAgdnRFeHRlbmRlZDogV3JpdGVsbign0J/Qu9Cw0LLQsNGO0YnQuNC5INC/0LXRgtGD0YU6ICcsIHBldHVoLlZFeHRlbmRlZF4pOwogICAgICB2dFN0cmluZzogV3JpdGVsbign0J/QtdGC0YPRhSDQsiDRg9C30LrQuNGFINGB0YLRgNC40L3Qs9Cw0YU6ICcsIHBldHVoLlZTdHJpbmdeKTsKICAgICAgdnRBbnNpU3RyaW5nOiBXcml0ZWxuKCfQn9C10YLRg9GFINCyINGB0YLRgNC40L3Qs9Cw0YU6ICcsIEFuc2lTdHJpbmcocGV0dWguVkFuc2lTdHJpbmcpKTsKICAgICAgdnRXaWRlU3RyaW5nOiBXcml0ZWxuKCfQn9C10YLRg9GFINCyINGI0LjRgNC+0LrQuNGFINGB0YLRgNC40L3Qs9Cw0YU6ICcsIFdpZGVTdHJpbmcocGV0dWguVldpZGVTdHJpbmcpKTsKICAgICAgdnRQQ2hhcjogV3JpdGVsbign0KHQuNGI0L3Ri9C5INC/0LXRgtGD0YU6ICcsIHBldHVoLlZDaGFyKTsKICAgICAgdnRQV2lkZUNoYXI6IFdyaXRlbG4oJ9Co0LjRgNC+0LrQuNC5INGB0LjRiNC90YvQuSDQv9C10YLRg9GFOiAnLCBwZXR1aC5WV2lkZUNoYXIpOwogICAgICBlbHNlCiAgICAgICAgV3JpdGVsbign0J/QtdGC0YPRhSDRgtC40L/QsCAnLCBwZXR1aC5WVHlwZSk7CiAgICAgIGVuZDsKICAgIGVuZDsKZW5kOwoKYmVnaW4KICBLT0tPKFsncGV0dWgnLCAxMl0pCmVuZC4K