[angvelem]

Код:

procedure GAVGAV(var M:TM);
begin
  M.X:=5; 
end;

...

  GAVGAV(M);

хотя какой в этом смысл, когда М - глобальная переменная.
Никакого поля Х, там быть не может.