delete.pas

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

Код примера
 Uses WinCrt;
 
  Var S : String;
 
 Begin
    S:='Unix & Windows forever!';
  Delete(S, 6, 10);
  WriteLn(S); { 'Unix forever!' }
 End.

Скачать delete.pas