Question

Реализовать функцию Delete(s, i), возвращающую строку, полученную удалением из строки s всех символов, начиная с i-го. Не использовать стандартную процедуру Delete.

Answer 1

function Delete(s:string; i:integer):string;
begin
  Delete:=Copy(s,1,i-1)
end;

begin
  Writeln(Delete('Тестовая строка',9))
end.

Результат:
Тестовая

Answer 2

Вы что, настолько не разбираетесь в предмете? Это я собственную функцию назвал Delete, а существующую не использовал, как и указано.