Программа в Pascal ABC. С клавиатуры вводится два слова. Надо вывести на

экран те буквы, которые есть и в одном и во втором слове (печатать буквы без повторений)

var

st:array[0 ... 10000]of char;

s, s1:string;

g, g1, i, j, z:longint;

t:char;

begin

z:=0;

readln (s) ;

readln (s1) ;

g:=length (s) ;

g1:=length (s1) ;

for i:=1 to g do

for j:=1 to g1 do if s[i]=s1[j] then

begin

inc (z) ;

st[z]:=s[i];

break;

end;

for i:=1 to z-1 do for j:=i+1 to z do if st[i]>st[j] then

begin

t:=st[i];

st[i]:=st[j];

st[j]:=t;

end;

st[z+1]:='-';

for i:=1 to z do i st[i]st[i+1] then write (st[i],' ') ;

end.