Record.ItemCount : Integer
Количество переменных

Procedure OnCreate;
Var
  R : Record;
  I : Integer;
Begin
  R.A := 'Hello';
  R.B := 'World';
  R.C := '!';
  
  For I:=0 To R.ItemCount-1 Do
    Warning(R.ItemName(I) + ' = ' + R[I] As String);
End;

void OnCreate() {

  Record r;
  int i;

  R.A = "Hello";
  R.B = "World";
  R.C = "!";
  
  for(i=0; i<R.ItemCount; i++)
    Warning(R.ItemName(i) + " = " + (string)R[i]);
}