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

uses crt;
var s:string;
i,j,k,l:integer;
c: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 {если два раза}
begin
c:=s[i]; {запоминаем}
writeln('Simvol ',c,' vstrechaetsa 2 raza.');{выводим на экран}
end;
for l:=length(s) downto 1 do {идем с конца строки}
if s[l]=c then delete(s,l,1); {и удаляем эти символы, чтоб больше мозги не компостировали}
end;
readln
end.