Символьные строки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Const   c=['+','-','*','/','^','<','>','='];
Var n, i, k: integer;
s1,s2 : set of char;
s : string;
a : array [1..8]of char;
begin
 a[1]:='+'; a[2]:='-'; a[3]:='*'; a[4]:='/'; a[5]:='^'; a[6]:='<'; a[7]:='>';
 a[8]:='=';
{Введення початкових даних}
    s:=Edit1.Text;
  n := length(s);
       s1:=[];  {символы что есть в массиве}
       s2:=[];  {Символы которых в массиве нету}
       {for i := 0 to (n-1) do
         include(s1,s[n]);}
       i:=n;
       while i<>0 do
        begin
         k:=i;
           if s[k] in s1 then s2:=s2+[s[k]] else s1:=s1+[s[k]];
 
        end;
        s2:=c-s1;
{вывод результата}
        Edit2.Text:=''; Edit3.Text:='';
 
{ символы что есть в массиве }
       for i := 1 to 8 do begin
         if (a[i] in s1) then
           edit2.Text := edit2.Text + ' ' + a[i]
         else if (a[i] in s2) then
           edit3.Text := edit3.Text + ' ' + a[i];
       end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;