program mmm;
uses crt;
type tset=set of char;
var s:string[100];
t:string[100];
m:tset;
i:byte;
procedure init(x:string;
var m:tset);
var i:byte;
begin m:=[];
for i:=1 to length(x) do m:=m+[x[i]];
end;
BEGIN clrscr;
writeln('vvedite predlogenie 1');
readln(s);
writeln('vvedite predlogenie 2');
readln(t);
init(t,m);
i:=1;
while i writeln('rezyltat');
writeln(s);
readln;
END.