Дана символьная строка. Определить, есть ли в данной строке два любых одинаковых символа, и вывести соответствующее сообщение — Pascal(Паскаль)

uses crt;
var
 i,j,kol:integer;
 s,sim:string;
begin clrscr;
 kol:=0;
 writeln('vvedite stroku:');
 read(s);
 for j:=1 to length(s) do
  begin
   kol:=0;
   sim:=s[j];
   for i:=1 to length(s) do
   if s[i]=sim then inc(kol);
   writeln('simvol  ',sim,'  vstrechaetsya ',kol,' raz');
  end;
readkey;
end.