Pascal comprimento da seqüência de caracteres

pascal comprimento da seqüência de caracteres

Program StringLengthFunction;
 
Var 
sampleString:String;

begin
    Write('Enter a string: ');
    readln(sampleString);
    
    //Length function takes a string as input ansd returns its number of chracters as an integer
    Writeln('Length of string entered is: ',Length(sampleString));
End.