Определите процедуру или функцию по ее описанию:

• Объекты 1
  • Выдает текущую длину строки S
  • Возвращает слияние строк s1…sn
  • Возвращает подстроку длиной len, начинающуюся с позиции start строки s
  • Удаляет из s подстроку длиной len, начинающуюся с позиции start
• Объекты 2
  • Length\(s\)
  • Concat \(s1,s2,…sn\)
  • Copy \( s, start,len\)
  • Delete \(s, start, len\)