Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Процедура Delete (), Паскаль.
Процедура Delete ( Str; I, N ) удаляет в строке Str, количество символов N, начиная с позиции I.

program Task_Str6;

  {задачи на строки паскаль с решением}
  {Delete ( Str; i, n  ), Паскаль}

var
  i, n, m: integer;
  s_Str: string;

begin
  s_Str := 'Дома были выше, чем деревья.';
  n := Length(s_Str);
  m := n - 10;
  Delete(s_Str, 10, m);
  n := Length(s_Str);
  for i := 1 to n do
    Write(s_Str[i]);
  Writeln;
  ReadLn();
end.

Результат:

Процедура Delete (), Паскаль.