[angvelem]

Немного не так:

Код:

procedure(var X : Integer; Num : Integer);
begin
   X := X + Num;
end;
...
   GAVGAV(M.A, 5);  // При этом к M.A добавлялось, к примеру, 5 
   GAVGAV(M.B, 2);  // При этом к M.B добавлялось 2

или

Код:

function(X : Integer; Num : Integer) : Integer;
begin
   Result := X + Num;
end;
...
   M.A := GAVGAV(M.A, 5);  // При этом к M.A добавлялось, к примеру, 5 
   M.B := GAVGAV(M.B, 2);  // При этом к M.B добавлялось 2