Что будет в такой ситуации?

procedure Test(var a : string);
begin
    a := 'Здесь больше 30 символов. А его это вообще волнует? Похоже...';
    Writeln(a);
end;
 
var
    str : string[30];
    
begin
    str := '3d';
    str := 'Здесь больше 30 символов. А его это вообще волнует? Похоже...'; // Тут не влазит
    Writeln(str);
    Test(str); //Влезло?
    Writeln(str); //Но почему?
end.

procedure Test(var a : string);
begin
    a := 'Здесь больше 30 символов. А его это вообще волнует? Похоже...';
end;
 
var
    str : string[30];
    
begin
    str := 'Здесь больше 30 символов. А его это вообще волнует? Похоже...'; // Все нормально, обрезает.
    Writeln(str);
    Test(str);
    Writeln(str); // А тут уже в str влезло. Переполнением буфера не грозит?
end.

procedure Test(var a : string);
begin
    a := 'Здесь больше 30 символов. А его это вообще волнует? Похоже...';
end;
 
var
    str : string[30];
    bla2, bla, bla3 : string;
    
begin
    bla2 := '213213123';
    str := 'Здесь больше 30 символов. А его это вообще волнует? Похоже..asdasdadasdasdasdasdasd.'; // Тут не влазит
    bla :=  '21321312';
    bla3:= '2321312';
    Writeln(str);
    Test(str); 
    Writeln(str);
    Writeln(bla);
    Writeln(bla3);
    Writeln(bla2);
end.