var 
  S1,S2 :string;
  S     :string[20];                                     // Укороченная строка - не более 20 символов

Begin
...
If Concat(S1, S2) <> S1+S2 then                          // два одинаковых слияния двух строк 
  write ('Ошибка в мироздании!');


S:= Concat(S1, S2);
If Concat(S1, S2) <> S then                             // тип Concat -  полный 255 байтовый String 
  write ('Вполне возможно!');  
  
If SizeOf (S) < SizeOf ('Не полезет ни за что!') then 
begin
  S := Concat('Не ', 'полезет ', 'ни за что!');         // а здесь уже три аргумента! 
end;  

End.