Помогите переделать с двух программ одну

program LabPR2_1;
 
uses crt;
 
type
Myset=set of char;
 
var
X,A,B,C,D,E:Myset;
 
i:integer;
 
procedure
Vvod(var y:Myset;ch:char);
 
var
i:integer;
 
ch1:char;
 
correctchar:set of char;
 
begin
 
correctchar:=['a'..'z','A'..'Z'];
 
repeat
 
ch1:=readkey;
 
if ch1 in correctchar then
 
begin
 
Write(ch1);
 
y:=y+[ch1];
 
end;
 
until ch1=#13;
 
Write(#10,#13,ch,': ');
 
for i:=0 to 255 do
 
if chr(i) in y then
 
Write(chr(i):2);
 
Writeln;
 
end;
 
begin
clrscr;
 
Vvod(A,'A');
 
Vvod(B,'B');
 
Vvod(C,'C');
 
Vvod(D,'D');
 
Vvod(E,'E');
 
Writeln;
 
Write('X:
');
 
if ((A<=C) or not(B<=A)) then
 
begin
 
X:=((A-(B*C-D+E)+(B*C-D+E)-A));
 
end
 
else
 
X:=((A*B)+C+D-E);
 
for i:=0 to 255 do
 
if chr(i) in X then
 
Write(chr(i),' ');
 
Writeln;
 
readln;
 
end.

program CharOrder;
 
uses Crt;
 
var
 
s :
String; 
 
j :
Integer; 
 
M :
Set of Char; 
 
begin
 
ClrScr;
 
Write('Введите текст: '); 
 
ReadLn(s);
 
M :=
[]; 
 
for
j:=1 to Length(s) do begin 
 
if
s[j] = '.' then Break; 
 
if
not (s[j] in M) then begin 
 
M := M + [s[j]]; 
 
Write(s[j],
' '); 
 
end;
 
end;
 
ReadLn; 
 
end.