Bedingte Variable

[markus888]

Wie kann ich eine bedingte Variable erzeugen:
Abhängig von einem übergebenen Wert soll der Typ einer Variable bestimmt werden.

Code:

procedure test(const x:Integer);
var
if x=1 then
  p:Integer
else if x=2 then
  p:Byte;

begin

end;