Program Demo; Var X : Real; { X is real variable } Procedure NewDeclaration Var X : Integer; { Redeclare X as integer} begin // X := 1.234; {would give an error when trying to compile} X := 10; { Correct assigment} end; { From here on, X is Real again} begin X := 2.468; end. |