TP3/shell/tests/fixtures/t108_delete.pas

program t108_delete;

{ t108 -- the Delete(S, pos, len) string builtin: middle, front, truncation,
  and the no-op positions. }

var
  S : string[20];
begin
  S := 'abcdef';
  Delete (S, 2, 3);
  writeln (S);
  Delete (S, 1, 1);
  writeln (S);
  S := 'abcdef';
  Delete (S, 2, 99);
  writeln (S);
  Delete (S, 10, 2);
  writeln (S);
  Delete (S, 0, 2);
  writeln (S);
  Delete (S, 1, 0);
  writeln (S);
  S := '';
  Delete (S, 1, 1);
  writeln ('[', S, ']')
end.