Дано произвольная символьная строка.Узнать её длину и удалить ...

Вера

var

  a: string;

  

begin

  writeln('Введите строку');

  readln(a);

  writeln('Длина исходной строки равна:  ', length(a));

  Delete(a, 1, 3);  //Удаляем из строки a 3 символа, начиная с 1 позиции

  writeln('Полученная строка: ', a);

end.