{$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.