var byte: byte; // работает procedure p(integer: integer); // не работает. begin end; type T = class end; procedure p(t: t); // работает begin end; procedure p(list: list); // не работает begin end; begin end.