Delete (процедура) удаляет подстроку из строки.
В твоем случае delete(s, i, k)
s-исходная строка,
i - с какой позиции
k - сколько символов удалять.
Форма записи Delete(s,1,3) означает из строки s, убрать с первого по третий символ (строку с первого элемента по третий).
writeln(s) => 'mple'
P.S.: s0:='ABC'; - это действительно лишнее : )