строковый тип данных Опции

[BorisON]

мучаюсь над задачей
вывести в алфавитном порядке все строчные русские буквы, входящие во введённую с клавы строку
вот такой листинг нерабочей проги

program stroki_2;

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
s: string;
i: integer;
q: set of char;
begin
q:=['а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'];
writeln ('vvedite ctroku');
 readln (s);
for  i:=1 to length (s) do
 begin
 if s[i] in q then
  write (s[i]);
end;
readln;
  end.

смог только вывести русские буквы (докучи выводятся не все)
прошу помощи обественности

Сообщение отредактировано: BorisON - 14.12.2006 1:42

[мисс_граффити]

как вариант - без множеств:

program stroki;
var s:string;
i: char;
begin
readln(s);
for i:='а' to 'п' do
  if pos(i,s)<>0 then
    write(i);
for i:='р' to 'я' do
  if pos(i,s)<>0 then
    write(i);
writeln;
readln;
end.

Сообщение отредактировано: мисс_граффити - 14.12.2006 18:15