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

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

function Delete(s:string; i:integer):string;begin  Delete:=Copy(s,1,i-1)end;begin  Writeln(Delete('Тестовая строка',9))end.Результат:Тестовая