strecopy.pas

 {StrECopy.PAS}
 
 { Пример программы для функции StrECopy }
 
 Uses Strings, WinCrt;
 
 Const Turbo : PChar = 'Turbo';
      Pascal : PChar = 'Pascal';
 
 Var S : Array [0..15] Of Char;
 
 Begin
  StrECopy(StrECopy(StrECopy(S, Turbo), ' '), Pascal);
  WriteLn(S);
 End.