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

var 
 S1,S2: String; 
 Num: Array [ 1..3 ] of Integer = (100,101,102);
Const
 Code: String = 'ABKL25WMTR85SPT';
Begin
 S1:='ABCDEFGH';
 S2:='0123456789';
End;