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

var s : string;
i,j,buf,k, lp, m : integer;
A : Array[1..27,1..2] of string;
Aa : Array[1..200]of integer;
povtor : string;
begin
A[1,1]:='a';
A[2,1]:='b';
A[3,1]:='c';
A[4,1]:='d';
A[5,1]:='e';
A[6,1]:='f';
A[7,1]:='g';
A[8,1]:='h';
A[9,1]:='i';
A[10,1]:='j';
A[11,1]:='k';
A[12,1]:='l';
A[13,1]:='m';
A[14,1]:='n';
A[15,1]:='o';
A[16,1]:='p';
A[17,1]:='q';
A[18,1]:='r';
A[19,1]:='s';
A[20,1]:='t';
A[21,1]:='u';
A[22,1]:='v';
A[23,1]:='w';
A[24,1]:='x';
A[25,1]:='y';
A[26,1]:='z';
A[27,1]:=' ';
 
for i:=1 to 27 do begin
A[i,2]:='o';
end;
writeln('Vvedite tekst');
Readln(s);
for i:=1 to Length(s) do
  begin
    for j:=1 to Length(s) do
      begin
        if i<>j then
          begin
           if (s[i]=s[j]) then
            begin
                        povtor:=s[i];
              for m:=1 to 27 do
                begin
                  if s[i]=A[m,1]
                  then begin A[m,2]:='x'; ;end;
 
                end;
            end;
        end;
    end;
end;
 
//for j:=1 to 27 do
for i:=1 to 27 do
begin
if A[i,2]<>'o' then
writeln(A[i,1]);
end;
Readln;
end.

  var s:string;a:array[ord('a')..ord('z')] of byte;i:integer;
begin
s:='prived at midveda';
for i:=1 to length(s) do begin
 a[ord(s[i])]:=a[ord(s[i])]+1;
end;
for i:=ord('a') to ord('z') do begin
 if  a[i]>=2 then
  write(chr(i));
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.