{$MODE DELPHI}
procedure KOKO(petuhi: array of Variant);
var
  i: integer;
  key, value: Variant;
begin
  i := Low(petuhi);
  
  while(i < High(petuhi)) do
    begin
      key := petuhi[i];
      value := petuhi[i + 1];
      Writeln('Ключ = ', key, ', значение = ', value);
      Inc(i, 2)
    end;
end;

begin
  KOKO(['petuh', 'Петя', 'iq', 12])
end.