Поиск двух совпадающих символов в строке

program z2;
 
uses
    crt;
procedure Search (s : string);
var
   i, j, k : byte;
 
begin
   k := 0;
   writeln(s);
   for i := 1 to length(s) do
   for j := i + 1 to length(s) do
   begin
      if (s[i] = s[j]) then
      begin
        writeln ('Successful! Symbol = ', s[i]);
        inc(k);
      end
      else
        dec(k);
   end;
   if (k <= 0) then
      writeln('Not found.');
end;
 
var
   str : string;
 
BEGIN
     clrscr;
     writeln('Your string :');
     read(str);
     Search(str);
     write('Press key to continue...');
     readkey;
END.

program z2;
 
uses
    crt;
 
procedure Search (s : string);
var
   i, j : byte;
   k : integer;
   b : string;
 
begin
   k := 0;
   for i := 1 to length(s) do
   for j := i + 1 to length(s) do
   begin
      if (s[i] = s[j]) then
      begin
        inc(k);
        b[k] := s[i];
      end;
   end;
   if k <= 0 then
        writeln('Not found!')
   else
   begin
        writeln('Successful! Symbol :');
        for i := 1 to k do
               write(b[i], ' ');
        writeln;
   end;
end;
 
var
   str : string;
 
BEGIN
     clrscr;
     writeln('Your string :');
     read(str);
     Search(str);
     write('Press key to continue...');
     readkey;
END.

procedure Search (s : string);
var
   i, j : integer;
   found : boolean;
begin
   writeln(s);
 
   found := false;
 
   for i := 1 to length(s) - 1 do
   for j := i + 1 to length(s) do
   if not found then
   begin
      if (s[i] = s[j]) then
      begin
        writeln ('Successful! Symbol = ', s[i]);
        found := true;
        // можно сразу exit, чтобы не крутить лишние итерации цикла, один дубликат уже был найден
      end
   end;
   if not found then
      writeln('Not found.');
end;