Программа в 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.