محافظت از متغیرها :

var  

  S1,S2: String;  

  Num: Array [ 1..3 ] of Integer = (100,101,102);

Const

  Code: String = 'ABKL25WMTR85SPT';

Begin

  S1:='ABCDEFGH';

  S2:='0123456789';

End;