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

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

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

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