Если у меня есть запись, например, type TMyRec = record x : string; end; и procedure test(const x :...