Распечатать все буквы входящие в текст не мене двух раз в алфавитном порядке. Паскаль.

[DIzza]

Распечатать все буквы входящие в текст не мене двух раз в алфавитном порядке.

[Леди Кошка]

Текст из файла или с консоли? сдавать когда надо?

[DIzza]

текст надо самому вводить...а сдать нужно завтра

[JekaX]

Сообщение от DIzza

текст надо самому вводить...а сдать нужно завтра

Вот опробуйте

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

writeln('Vvedite tekst');
Readln(s);
k:=1;
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]
                  then begin Aa[k]:=m; Inc(k) end;
                end;
            end;
        end;
    end;
end;


for i:=1 to 27 do
begin
if (Aa[i]<>0) then
begin
      if (Aa[i]=i) then
      begin
writeln(A[Aa[i]]);
end;
end;
end;

Readln;
end.

[JekaX]

да буквы ессесено только английские и маленькие!

версия 1.01 ))))
Мне больше нравиться и более рабочая )

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.

[Stilet]

Предлагаю вариант попроще:

   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.

Это метод сортировки индексами.