Дана строка, вывести на экран знаки препинания, которые встречаются хотя бы 2 раза (Паскаль)

[GamBitFRK]

Дана строка, вывести на экран знаки препинания, которые встречаются хотя бы 2 раза

При вводе только знака препинания, он его выводит, не должен

uses crt;

var s,s3:string;
s1,s2:set of char;
i,j:integer;
begin
  clrscr;
  s1:=[]; s2:=[',','.','!','?','!',':',';','-'];s3:=',.!?:;-';
  Write('Введите строку: ');readln(s);
  Writeln('Знаки препинания, которые встречаются хотя бы 2 раза:');
  For i:=1 to length(s) do
  begin
  If s[i] in s2 then
    if s[i] in s1 then else s1:=s1+[s[i]];
  end;
  For i:=1 to length(s) do
  If s3[i] in s1 then write('(',s3[i],')');
end.

________
Предупреждаю!

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.