Предоставлена строка символов. Выяснить, какие символы встречаются в строке два раза — Pascal(Паскаль)

uses crt;
var s:string;
i,j,k,l:integer;
c:char;
m:set of char;
begin
clrscr;
writeln('Vvedite text:');
readln(s);
for i:=1 to length(s) do //идем по строке
begin
k:=0; //совпадений ноль
for j:=1 to length(s) do //идем по "клону" строки
if s[i]=s[j] then k:=k+1;//если находим одинаковые, считаем
if k=2 then//если 2
begin
c:=s[i];//запоминаем
m:=m+[c];//включаем в множество
end;
for l:=length(s) downto 1 do
if s[l]=c then delete(s,l,1);//удаляем эти символы, чтоб еще раз не считать
end;
for i:=1 to 255 do//проверяем все символы
if chr(i) in m then //если есть в множестве
write(chr(i),' ');//выводим
readln
end.