insert.pas

Пример программы для процедуры Insert.

Код примера
 {Insert.PAS}
 
 { Пример программы для процедуры Insert }
 
 Var S : String;
 
 Begin
  S:='D00M forever !';
  Insert('& UNIX ', S, 6);
  WriteLn(S); { 'D00M & UNIX forever!' }
 End.

Скачать insert.pas