Prosedurlar Təyinatı Delete (var S:
String; Index,
Count: Integer)
s sətrindən Index mövqeyindən başlayaraq count sayda
simvolu ləğv edir. Əgər count s sətrinin uzunluğundan
böyükdürsə, onda s sətrində heç bir simvol silinmir. Əgər
“index+count”-in qiyməti s-in uzunluğundan böyükdürsə,
onda sətrin bütün simvolları axıra qədər silinir.