работа со строками

uses crt;
procedure Sim(st1,st2:string);
var i,j:byte;
    m1,m2,m3:set of char;
begin
m1:=[];
for i:=1 to length(st1) do
m1:=m1+[st1[i]];
m2:=[];
for i:=1 to length(st2) do
m2:=m2+[st2[i]];
writeln('Только в первой строке встречаются символы:');
m3:=m1-m2;
for i:=32 to 255 do
if chr(i) in m3 then
write(chr(i),' ');
writeln;
writeln('В обеих строках встречаются символы:');
m3:=m1*m2;
for i:=32 to 255 do
if chr(i) in m3 then
write(chr(i),' ');
readln
end;
var s1,s2:string;
begin
clrscr;
writeln('Первая строка:');
readln(s1);
writeln('Вторая строка:');
readln(s2);
Sim(s1,s2);
end.

writeln('Только во второй строке встречаются символы:');
m3:=m2-m1;
for i:=32 to 255 do
if chr(i) in m3 then
write(chr(i),' ');
writeln;

uses crt;
procedure Sim(st1,st2:string);
var i,j:byte;
    s:string;
begin
writeln('Только в первой строке встречаются символы:');
s:=st1;
for i:=length(s) downto 1 do
 begin
  if pos(s[i],st2)=0 then write(s[i],' ');
  for j:=i downto 1 do
  if s[j]=s[i] then delete(s,j,1);
 end;
writeln;
writeln('Только во второйой строке встречаются символы:');
s:=st2;
for i:=length(s) downto 1 do
 begin
  if pos(s[i],st1)=0 then write(s[i],' ');
  for j:=i downto 1 do
  if s[j]=s[i] then delete(s,j,1);
 end;
writeln;
writeln('В обеих строках встречаются символы:');
for i:=1 to length(st1) do
if pos(st1[i],st2)>0 then
write(st1[i],' ');
readln
end;
var s1,s2:string;
begin
clrscr;
writeln('Первая строка:');
readln(s1);
writeln('Вторая строка:');
readln(s2);
Sim(s1,s2);
end.