procedure PrintMax5(var Data: string);
begin
if Length(Data) > 5 then
Data := Copy(Data, 1, 5);
WriteLn(Data);
end;
var
Data: string;
begin
Data := '1234567';
PrintMax5(Data);
//printed '12345'
WriteLn('data = ', Data);
//data = '12345'
end.