program GetStringLength;
var
myString: string;
lengthOfString: Integer;
begin
myString := 'Pascal Programming';
// Use the Length function to get the string length
lengthOfString := Length(myString);
WriteLn('The length of the string "', myString, '" is: ', lengthOfString);
end.
(*
run:
The length of the string "Pascal Programming" is: 18
*)