String manipulation in Object pascal

[Qomplainerz]

program StringManipulationExample;
begin
  // Variable declaration
  var
    name: String := 'John Doe';
    length: Integer;

  // Get the length of the string
  length := Length(name);

  WriteLn('Name:', name);
  WriteLn('Length of name:', length);
end.