procedure Print5(var Data: string);
begin
  if Length(Data) > 5 then
    Data := Copy(Data, 1, 5);
  WriteLn(Data);
end;

var
  Data: string;
begin
  Data := '1234567';
  Print5(Data);
  //printed '12345'

  WriteLn('data = ', Data);
  //data = '12345'
end.