Вывести в алфавитном порядке все латинские буквы

[Jereme]

Задана строка символов. Вывести в алфавитном порядке все латинские буквы, встречающиеся в строке. Все выводимые буквы преобразовать в прописные. Например, задана строка: «Я учусь программировать на turbo pascal». Результат работы программы: AABCLOPRSTU

[pomoshnic]

Вот код:

var s:string;
      c:char;
      b:byte;
begin
writeln('Vvedite stroky');
readln(s);
for b:=1 to length(s) do
s[b]:=upcase(s[b]);
for c:='A' to 'z' do
for b:=1 to length(s) do
if c=s[b]then
write(c);
readln
end.

[Jereme]

СПАСИБОООО

[Serge_Bliznykov]

pomoshnic, малюсенькое уточнение - в Вашем варианте нет смысла крутить цикл до маленькой 'z' - после upCase.. в строке будут только прописные латинские буквы... :-)

[Serge_Bliznykov]

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

крутить цикл до маленькой 'z'

я Вам больше скажу - это не неточность!
ЭТО ОШИБКА!!!
попробуйте прогнать для строчки
пример плохой строки [^\|/~^]

[alex_fcsm]

uses crt;
var s:string;
      c:char;
      b:byte;
begin
clrscr;
writeln('Vvedite stroky');
readln(s);
for c:='a' to 'z' do
for b:=1 to length(S) do
 if (s[b]=c)or(UpCase(c)=s[b]) then write(UpCase(s[b]));
end.

[pomoshnic]

Упс незаметил . Просто сначала я написал

var s:string;
      c:char;
      b:byte;
begin
writeln('Vvedite stroky');
readln(s);
for c:='A' to 'z' do
for b:=1 to length(s) do
if c=s[b]then
write(UpCase(c));
readln
end.

а затем убрал строку

write(UpCase(c));

и вставил

for b:=1 to length(s) do
s[b]:=upcase(s[b]);

а про

for c:='A' to 'z' do

совсем забыл.