3
{ This program demonstrates the AnsiLastChar function }
11
S:='This is an ansistring.';
12
Writeln ('Last character of S is : ',AnsiLastChar(S));
13
L:=Longint(AnsiLastChar(S))-Longint(@S[1])+1;
14
Writeln ('Length of S is : ',L);
b'\\ No newline at end of file'