Запомнить меня на этом копьютере
Пример программы для процедуры Delete.
Uses WinCrt; Var S : String; Begin S:='Unix & Windows forever!'; Delete(S, 6, 10); WriteLn(S); { 'Unix forever!' } End.
Скачать delete.pas