SHARE
TWEET

Untitled

a guest Nov 15th, 2017 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. function DeleteCopies(sentence:string): string;
  2. var
  3.     sequen: TSetChar;
  4.     i, j: byte;
  5. begin
  6.     sequen := [];
  7.     for i := 1 to length(sentence) do
  8.         if not (sentence[i] in Sequen) then
  9.             sequen := sequen + [sentence[i]];
  10.     for i := 1 to length(sentence) do
  11.         if  sentence[i] in sequen then
  12.             ?????????????
  13.     DeleteCopies := sentence;
  14. end;
RAW Paste Data
Top